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Vorwort 


Diese Arbeit ist in mehrere Teile gegliedert. Der erste gibt 
zunächst eine Einführung in die Arbeitsweise des Compilers. Di- 
rekt damit verbunden ist ein Überblick über die Besonderheiten 
der Sprache, insbesondere der expliziten Benutzung des Stapel- 
speichers. 


In die darauf folgende Erläuterung der Syntax und der Semantik 
wurden gleich einige praxisnahe Beispiele eingestreut. Dabei 
wurde darauf geachtet, daß Begriffe und Definitionen eindeutig 
gefaßt und benutzt werden. 


Gerade zusammen mit dem vollständigen Assemblerlisting, das man 
in 3. Teil der Arbeit findet, erst werden alle Aspekte von RPNL 
in der Praxis erschöpfend ausgetestet werden können und dabei die 
überlegenen Merkmale zu Tage treten, die darin bestehen, durch 
maschinennahes Programmieren effiziente Programme auf Mikrocompu- 
tern zu realisieren. 


Notizen: 


1. Was ist RPNL_? 


RPNL basiert auf der Sprache FORTH und hat gleichzeitig wesentli- 
che Elemente aus PASCAL übernommen. Beispielsweise ist ihnen der 
Verzicht bzw. der sparsame Gebrauch von Sprunganweisungen gemein- 
sam. So besitzt RPNL alle die Sprachelemente, die eine struktu- 
rierte Programmierung unterstützen. Der-wesentliche Unterschied 
zu anderen Programmiersprachen besteht in der 


Verwendung der Umgekehrten Polnischen Notation 


(UPN bzw. "R"everse "P"olish "N"otation), von der sich auch der 
Name der Sprache ableitet (das "L" steht für language). Mag diese 
ungewöhnliche Schreibweise im ersten Moment auch erschwerend 
wirken, so ermöglicht sie aber doch den Aufbau eines Compilers 
mit einem 


Platzbedarf von lediglich 8 KByte. 


Zu dieser Besonderheit kommt eine weitere hinzu. Alle Compiler 
erzeugen. ein ausführbares Programm. Entweder in Maschinensprache, 
die direkt von der CPU verstanden und ausgeführt wird oder aber 
einen Interpreterkode, eine interne Darstellung des Programmes, 
die dann durch ein anderes Programm interpretiert/übersetzt und 
gleichzeitig ausgeführt wird. Im Gegensatz dazu 


erzeugt RPNL einen Zwischenkode, 


der kein Interpreterkode ist, der aber auch von der CPU nicht 
direkt ausgeführt wird. Vielmehr besteht der Kode aus einer 
Aneinanderreihung von Unterprogrammaufrufen. Dies sind Standard- 
prozeduren, die eine Art Bibliothek darstellen und mit deren 
Hilfe neue Programme formuliert und erzeugt werden können. Die 
eigentliche Besonderheit liegt in dem 


Verzicht auf den CALL-Aufruf. 


Dadurch reduziert sich der Kode auf eine 2 Byte Adresse. Aller- 
dings wird dadurch ein 


Interner Übersetzer 

notwendig, der die Adressen auswertet und als Unterprogramme 
ausführt. Da der Zwischenkode in sehr enger Beziehung zur Maschi- 
nensprache steht, sind 

die Ausführungszeiten enorm kurz. 

Insbesondere dann, wenn man die durch RPNL erzeugten Programme 
mit Interpreterprogrammen vergleicht, schneidet RPNL hervorragend 
ab. 


In dieser Sprache hat jedes Programm, Unterprogramm und jedes 
Datum seinen Namen. Der Name für den Compiler selbst ist 


Was ist RPNL ? 


das Schlüsselwort PROGRAM, 


wodurch dann eine neue Definition bzw. ein Programm eingeführt 
wird. Diesem Schlüsselwort folgen zunächst der Name der Funktion 
oder Prozedur, die definiert werden soll, dann der Anweisungsteil 
und schließlich 


das Schlüsselwort END, 


das die Definition abschließt. Wie schon angedeutet, läßt RPNL 
keine bedingten oder unbedingten Sprünge zu. Dagegen verarbeitet 
der Compiler A 


das Bedingungsstatement IF-ELSE-THEN und 
die Schleifen FOR-LOOP und 
REPEAT-LOOP. 


Alle drei Anweisungen sind aus der Sprache PASCAL bekannt und 
diesen auch sehr ähnlich. Weil alle Funktionen dieser Sprache 
ihre Argumentwerte von einem Stapelspeicher erwarten, sind auch 
diese Standardstatements in UPN geschrieben. RPNL verarbeitet 16- 
Bit-Integerzahlen einmal als Daten, aber auch als logische Werte. 
Dabei ist dem Wert "falsch" die Null und "wahr" eine Zahl un- 
gleich der Null zugeordnet. Bevor allerdings einer Variablen oder 
Konstanten ein Wert zugewiesen werden kann, muß diese durch 
Nennung ihres Namens deklariert werden. Dies geschieht u.a. durch 
die 


Schlüsselworte VAR bzw. CONST. 
Insgesamt sind in RPNL 4 Datentypen zu unterscheiden. Diese sind: 


* Integer, Rn 
* Boolean, 
* Array und 
* String. 


Diese unterscheiden sich weniger in der Struktur und Leistung als 
eher in einer etwas abweichenden Formulierung, die wiederum durch 
die UPN bedingt ist, von den bekannten gleichnamigen Datentypen 
anderer Sprachen. Auf diese Datentypen sind Standardoperationen 
und Standardprozeduren definiert, die es mit Hilfe der übrigen 
Schlüsselworte gestatten, auch komplexe Programme in einer ele- 
ganten und übersichtlichen Weise zu formulieren. Zusammenfassend 
kann man die wesentlichen Vorteile der Sprache RPNL etwa folgen- 
dermaßen formulieren: 2 


1» Das Spektrum der semantischen Möglichkeiten ist sehr 
weit: Von Hochsprachelementen, die eine strukturierte 
Programmierung ermöglichen, bis hin zu einfachen arithme- 
tischen Funktionen. 


Was ist RPNL ? 


Durch ein wirkungsvolles Unterprogrammkonzept, bei dem 
alle Funktionen und Prozeduren Namen tragen, können Pro- 
grammodule erzeugt werden, die übersichtlich zum Gesamt- 
programm zusammengesetzt werden können. Die Programmodule 
können aber getrennt erzeugt und getestet werden. 


Der von dem RPNL-Compiler erzeugte Kode ist in der 
Ausführungszeit gewöhnlichen Interpretern überlegen. 


Der Compiler ist kein unüberschaubares Mammutgebilde. Er 


ist dagegen handlich und kann den eigenen Bedürfnissen 
und Vorstellungen leicht angepaßt werden. 
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2. Der RPNL-Compiler 


Nachdem nun die Programmiersprache RPNL im Überblick vorgestellt 
wurde, soll im folgenden Kapitel erläutert werden, wie ein dem 
Rechner übermitteltes Programm verarbeitet wird. Erst an- 
schließend werden Syntax und Semantik der Sprache ausführlich 
dargestellt. 


Die Aufgabe besteht also darin, einen lesbaren Programmtext in 
ein für die Maschine verständliches, also lauffähiges Programm zu 
überführen. Die verwendete Quellsprache ist dabei RPNL. Das Pro- 
gramm, das diese Umsetzung leistet, ist der COMPILER. Ein Compi- 
ler besteht im allgemeinen aus mehreren Teilen, die einander 
zuarbeiten. Im wesentlichen sind dies 3 Einheiten. Das Quellpro- 
gramm liegt oftmals als eine Folge von ASCII-Zeichen vor, die 
entweder im Speicher abgelegt sind oder aber während des Compi- 
liervorganges über die Tastatur eingegeben werden. Das Programm, 
das diese Zeichen einliest, ist der SCANNER. Seine Aufgabe be- 
steht also darin, eine lexikographische Analyse durchzuführen. Im 
einfachsten Falle besteht sie darin, den Fluß von Eingabesymbolen 
dann zu unterbrechen, wenn ein vollständiges Wort eingelesen 
wurde. 


Anschließend reicht er diese Zeichenfolge an die nächste Einheit, 
den PARSER weiter. Dieser Algorithmus prüft die Folge von Einga- 
bewörtern auf syntaktische Richtigkeit. Darunter ist eine Kon- 
trolle zu verstehen, die nur implementierte Schlüsselworte und 
Standardnamen oder aber deklarierte Namen als korrekte Eingabe 
akzeptiert. Darüber hinaus stellt das Programm alle Fehler fest, 
die gegen die Ordnung verstoßen, die im Syntaxdiagramm festgelegt 
ist. 


Als letzte Einheit ist der Vorgang zu nennen, der dafür sorgt, 
daß aus der Anweisungsfolge ein ausführbarer Kode erzeugt wird. 
Oftmals werden die beiden letztgenannten Einheiten, also die 
Syntaxanalyse und die Generierung des Objektkodes zu einer Ein- 
heit zusammengefaßt. Dies geschieht aus rein ökonomischen Grün- 
den. Deshalb kommt dieses Verfahren auch bei dem vorliegenden 
RPNL-Compiler zur Anwendung. Darüber hinaus ist zur Syntaxanalyse 
zu sagen, daß sich die Überprüfung auf die korrekte Benutzung der 
Standardnamen und Schlüsselworte beschränkt. Der Compiler ist 
also ein Programm, das die oben beschriebenen Aufgaben durchzu- 
führen hat. Es wird in unserem Falle aufgerufen durch die Eingabe 
des Schlüsselwortes PROGRAM. 

Wenn dann ein neuer Name eingegeben wird, der compiliert werden 
soll, so gelangt dieser zusammen mit anderen Daten (nämlich dem 
Programm) zunächst in einen Eingabepuffer, wo er Teil eines 
Datenstromes ist, den dieses Programm analysieren muß (Bild 1). 
Dies geschieht im wesentlichen durch Nachschlagen in einer Liste, 
in der die Namen von bereits definierten Prozeduren und Funktio- 
nen mit den zugehörigen Adressen stehen. Wird der Name dort 
gefunden, dann wird entweder diese Adresse gespeichert oder das 
zugehörige Programm ausgeführt. Das Compilieren eines neuen Na- 
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mens kann also ein relativ langer Vorgang sein, der etliche 
Schritte in Anspruch nimmt. Dazu noch etwas mehr. Für die meisten 
Anweisungen (einfachen Anweisungen) besteht die Aufgabe des Com- 
pilers einfach darin, die Adresse der zugehörigen Routine als 
Zwischenkode zu speichern. Tauchen Zahlen in einem Programm auf, 
dann werden diese so abgspeichert, daß sie während der Ausführung 
auf den Stack gelegt werden (durch eine PUSH-Instruktion). Für 
die restlichen Anweisungen ist dies nicht so einfach möglich. Sie 
verlangen während des Compilierens die Ausführung von speziellen 
Aktionen, wie Adressberechnungen oder Umspeicherungen.Das Compi- 
ler-Flag wird dann ungleich Null, wenn das Schlüsselwort END 
erkannt wird oder aber ein Fehler im obigen Sinne vorliegt. 


PROGRAMM PROGRAM 
SETZE das Compilerflag auf Null 
LIES den Programmnamen 
SPEICHERE den Programmnamen 
und die Adresse in der Namensliste 
SPEICHERE einen Aufruf als erstes Wort 
im Kodebereich (Parameterfeld) 
WIEDERHOLE 
UNTERSUCHE das nächste Wort ; der SCANNER 
WENN es in der Compilerliste steht, ; der PARSER 
DANN führe den zugehörigen Kode aus, 
; der Kodegenerator 
SONST 
WENN es in der Interpreterliste steht, 
DANN speichere seine Adresse im Kodebereich 
SONST 
WENN es eine Zahl ist, 
DANN speichere eine PUSH-Instruktion und 
speichere die Zahl 
SONST liegt ein Fehler vor, 
ZEIGE Fehler an, 
SETZE Zeiger auf Anfangswerte, 
BIS das Compiler-Flag ungleich Null ist, 
ENDE. 


Bild 1 Der RPNL-Compiler als Programm in einer umgangs- 
sprachlichen Formulierung. 


Zusammenfassend kann man sagen, daß das Ergebnis eines Compilier- 
vorTganges immer darin besteht, daß ein neuer Name eingeführt und 
ein zugehöriges Programm generiert wurde. 


In den nachfolgenden Abschnitten werden nun beschrieben: 


* die Aktionen, die den Ablauf des Compiliervorganges 
steuern, 

* die Struktur und die programmtechnische Realisierung der 
Programmtypen und 

* die Verarbeitung einiger wichtiger Datentypen. 
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2.1 Die Speicherorganisation 


2.1.1 Der Stack 


Ein RPNL Programm wird so ähnlich wie ein Maschinensprachepro- 
gramm behandelt. Weil der eigentliche Stack so stark beansprucht 
wird, ist ein zweiter für die Rücksprungadressen vorgesehen. Ihr 
ständiger Gebrauch ist eines der Merkmale dieser Sprache. Der 
Stack ist der Ort, an dem Daten, Adressen und Flags abgespeichert 
werden, um sie dann wieder leicht zu erreichen, wenn sie von 
einem Teil des Programmes einem anderen übergeben werden sollen. 
Man könnte ihn aber auch als einen Akkumulator bezeichnen. Daten, 
die normalerweise in den Akku fließen, landen hier auf dem Stack. 
Softwareroutinen führen die üblichen Akkumulatorfunktionen durch. 
Die Ergebnisse - Daten, Flags oder auch Adressen - werden dort 
wieder abgelegt für den weiteren Gebrauch des Programmes. 


An dieser Stelle soll einmal kurz der Begriff Stack erklärt 
werden. Als Stack bezeichnet man eine lineare Liste, bei der das 
Einfügen (mit der Operation PUSH) und Entfernen (mit POP) von 
Elementen nur von einem Ende der Liste möglich ist. Ein sogenann- 
ter Stackpointer zeigt jeweils auf den Speicherplatz, wo momentan 
gerade Manipulationen möglich sind. Da der Stack im allgemeinen 
nach unten, d.h. zu den niedrigeren Adressen wächst, muß der 
Stackpointer entsprechend bei POP erhöht und bei PUSH erniedrigt 
werden. 


2.1.2 Die Namensliste 


Jeder Routine des Compilers ist ein Label bzw ein Name zugeord- 
net. Mit diesem Namen kann dann das zugehörige Programm aufgeru- 
fen und ausgeführt werden. Neue Aufgaben können durch eine sinn- 
volle Kombination von bereits eingeführten Namen gelöst werden. 
Diese Sequenz wird dann durch ihren eigenen Namen identifiziert. 
Um RPNL diesbezüglich in seiner Buchhaltung zu unterstützen, wird 
jeder dieser Namen in einer Namensliste abgespeichert (Bild 2). 
Sie wird benötigt, um die Startadresse einer aufgerufenen Routine 
wiederzufinden. Da die Namen normalerweise von unterschiedlicher 
Länge sind, wird zu deren Abspeicherung ein festgelegtes Format 
benutzt. Dabei gibt das erste Byte die Länge des Namens an, also 
die Anzahl von Zeichen, die den Namen gerade ausmachen. Wird ein 
Wort gesucht, so vergleicht RPNL zunächst nur die Länge der 
beiden Kandidaten. Erst wenn diese übereinstimmt, werden die 
Namen zeichenweise verglichen. So ergibt sich ein relativ schnel- 
ler Suchalgorithmus. 


2.2 Das Laufzeitsystem 
RPNL-Programme haben einen charakteristischen Aufbau: Sie beste- 
hen aus einem Kodefeld und einem Parameterfeld (Bild 3). Vom 


Programmiersystem aus und während des Compiliervorganges wird 
mithilfe der Namensliste auf diese Kernprogramme, die auch Primi- 
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Adresse 


REPEAT Adresse 
Adresse 
Adresse 


Adresse 
Adresse 
Adresse 
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freier 24 
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WERT1 
I 
Routinen T 
ir 
des I 
I 
Compilers J 
I 
I 
I 
niedrige Adresse 
Bild 2 Prinzipielles Zusammenwirken der Listen im RPNL- 
Compiler 


tive genannt werden, zugegriffen. Im Gegensatz dazu wird während 
der Laufzeit eine andere Art des Zugriffs benutzt. Dann wird 
nicht mehr der Name, sondern lediglich die zugehörige Adresse 
benötigt. Der Zugriff ist dann insbesondere Aufgabe eines Inter- 
pretations-Pointers (IP) und einer NEXT-Routine. Der IP ist etwa 
vergleichbar mit dem Programmzähler einer CPU. Und NEXT ist die 
zugehörige Software-Routine (Bild 4). Jeder Programmteil endet 
mit einem Sprung zur NEXT-Routine. Sie inkrementiert den IP und 
leitet damit sofort die Ausführung des nächsten Programmschrittes 
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>Kernpro- 
l gramm 
l 


1 
l 
1 
1 
J: 
l 
I, 
l 
l 


IName BI -- 

I Name C I ar 

I Name DI 4 ----- 
1 Parameter- > Kernpro- 
v 


Bild 3 Die Namenszeiger verweisen auf die 
zugehörigen Kernprogramme 


I Maschinen- 
I sprache- 
I programm 


WERE TEON 
1 


-> I Kodefeld 


Bild 4 Die NEXT-Routine im zeitlichen Ablauf 


ein. Danach zeigt der IP auf die nächste aktuelle Speicherzelle. 
Diese enthält dann die Adresse des Kodefeldes des nächsten Befeh- 
les. Kodefeld deshalb, weil von dort immer auf einen Speicher- 
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platz verwiesen wird, wo Maschinenkode abgelegt ist, den es 
auszuführen gilt (Bild 5). 


Wenn IP wieder inkrementiert wird, ist damit die nächste auszu- 
führende Adresse festgelegt. So werden durch Erhöhen von IP genau 
die Programmteile ausgeführt, die der Programmablauf verlangt. 
Die Speicherzelle, auf die der IP zeigt, wird auch Namenszeiger 
genannt, weil durch ihn das zu dem Namen gehörige Programm ausge- 
wählt wird, und er somit als Zeiger fungiert. Man vergegenwärtige 
sich, daß ein Zeiger die Adresse dessen beinhaltet, auf was er 
zeigt. Der Inhalt des Parameterfeldes definiert den Namen bzw die 
zugehörige Aktion. Der Inhalt des Kodefeldes wird diktiert von 
dem Inhalt des Parameterfeldes. Das soll sagen, daß es zu jedem 
Typ von Parameterfeld eine korrespondierende Adresse im Kodefeld 
existiert, und deren zugehörige Routine angibt, wie das Parame- 
terfeld zu interpretieren ist. So kann ein Parameterfeld folgen- 
den Inhalt haben: 


* ein Programm in Maschinensprache 
* eine Variable 
* eine Konstante 


* eine Liste von bereits definierten Namen. 


I Parameter- I <--I 
--> I feld I 


Maschinen- ) 1 Ti I 
sprache- )-- I I 
programm  ) 


Bild 5 Aufbau der Kernprogramme 


Dementsprechend lautet dann auch der Inhalt des Kodefeldes. Es 
wurde gezeigt, daß die NEXT-Routine die Ausführung der Kernpro- 
gramme während der Laufzeit steuert. Man spricht deshalb auch vom 
Laufzeitsystem. Da diese Routine zusätzlich zu jedem Teilprogramm 
ausgeführt wird, ist die Forderung naheliegend, das Laufzeitsys- 
tem bezüglich der Ausführungszeit zu optimieren. Dies ist im 
vorliegenden Falle auch geschehen. Andererseits bietet sich aber 
hier die Möglichkeit, Kontrollmechanismen einzubauen, die den 
ordnungsgemäßen Programmablauf überwachen. Beispielsweise kann 
ständig die benutzte Stacktiefe Üübeprüft werden. Dies ist insbe- 
sondere bei rekursiven Programmen empfehlenswert. Man muß sich 
dabei aber vor Augen halten, daß dies immer auf Kosten der Aus- 
führungszeit geht. 
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2.3 Die Kernprogramme 


Wenn das Parameterfeld des Namens ein Maschinenspracheprogramm 
enthält, steht im Kodefeld des Namens seine eigene Parameterfeld- 
adresse (PFA). Wenn NEXT den Programmzähler mit dem Inhalt der 
Parameterfeldadresse lädt, wird das Maschinenspracheprogramm 
ausgeführt. Der letzte Befehl des Programmes lädt den Programm- 
zähler mit der Startadresse von NEXT. Als Beispiele für solche 
Programme wird nachfolgend die Verarbeitung verschiedener Proze- 
duren gezeigt. 


2.3.1 Konstante 


Bei der Repräsentation einer Konstanten besteht das Parameterfeld 
lediglich aus zwei Byte, die deren Wert beinhalten (Bild 6). Das 


I CONSTANT 


--> I ALPHA I ---> ICONSTANTI --> I I--> 1 
I Routine 


Bild 6 Das Zusammenwirken der Zeiger bei der 
Verarbeitung von Konstanten 


Kodefeld enthält eine Adresse, die immer (bei allen Konstanten) 
gleich ist und auf ein Maschinenspracheprogramm zeigt, das 
CONSTANT heißt. Wenn von NEXT diese Adresse in den Programmzähler 
geladen wird, wird der Inhalt des Parameterfeldes auf den Stack 
gelegt. Anschließend verzweigt das Programm wieder zu NEXT. 


2.3.2 Variablen 

Ähnlich ist es im Falle einer Variablen (Bild 7). Dort besteht 
das Parameterfeld lediglich aus aus einem 2 Byte Wort, das dessen 
Wert repräsentiert. Allerdings variiert die Funktion des zugehö- 
rigen Programmes, das hier VARIABLE heißt. Denn wenn NEXT dieses 
Programm ausführt, wird nicht der Inhalt des Parameterfeldes, 
sondern ein Zeiger darauf, also seine Adresse (Parameterfeld- 
adresse), auf den Stack gelegt. Mit der letzten Instruktion 
verzweigt die Routine wieder zu NEXT. 
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2.3.3 Arrays 


Wurde ein Name als ARRAY deklariert, so ist das dazugehörige 
Parameterfeld genausoviele Worte lang, wie bei der Deklaration 
angegeben wurde (Bild 8). Die in dem zugehörigen Kodefeld stehen- 
de Adresse ist die gleiche wie die bei Variablen. Also legt das 
korrespondierende Programm die Adresse des ersten Wortes des 
Parameterfeldes auf den Stack. Durch Addition eines Offsetwertes 
kann auf jedes Wort innerhalb des ARRAY zugegriffen werden. Der 
eigentliche Zugriff erfolgt mit der Funktion '?' , die bei Einga- 
be einer Adresse, den dazugehörigen Wert abliefert bzw auf den 
Stack legt. 


I VARIABLE 
-->3 I BETA I ---> IVARIABLEI --> I I 
I Routine 


Bild 7 Das Zusammenwirken der Zeiger bei der 
Verarbeitung von Variablen 


I VARIABLE 
I 
I Routine 


Bild 8 Der Aufbau von Arrays mit Hilfe 
von Variablen 
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2.3.4 Der zusammengesetzte Typ 


Ein wesentliches Merkmal von RPNL ist, daß auf Namen, die bereits 
in die Namensliste eingetragen sind, immer wieder zugegriffen 
werden kann. Ein später definierter Name kann einen früheren zu 
seiner eigenen Definition benutzen. Also kann ein neuer Programm- 
teil, d.h. ein Name alle alten so in geeigneter Weise wieder 
benutzen, daß die gestellte Aufgabe erfüllt wird. Für diese Art 
von Namen enthält das Kodefeld die Adresse eines Maschinenspra- 
cheprogrammes, das im wesentlichen zwei Aufgaben erfüllt (Bild 
9). Einmal legt es den aktuellen Inhalt des inkrementierten IP 


--> ITALPHA I ---> I CODE I--> 1 I->1 


I BETA I I PETER I <-- - I 
un nn ı @&u I = 
Seissen I CHARLY I T BAUR. Ei ae ee ji 
EEE 2 1 
-- I DELTA I I MARY I —— Returnstack 1 (1) 
EEE ERDE Ip' ISUREN ESSEN, 
I I I JOHN I I BETA I €- 
I CEND I I T 
I I 
—Jl 
Bild 9 Der zusammengesetzte Typ wird eingeleitet 


durch die Prozedur CODE 


auf den Returnstack. Gleichzeitig speichert es’ den Inhalt des 
Namenszeigers auf dem IP ab. Anschließend lädt das Programm die 
Adresse von NEXT in den Programmzähler. Im gezeigten Beispiel 
wird IP im Laufe der Abarbeitung von den Routinen, die zu ALFA 
gehören, ständig erhöht. Dieser Ablauf wird Verschachtelung (ne- 
sting) genannt. Programme können theoretisch beliebig häufig 
geschachtelt werden. Dieser Vorgang läuft ähnlich wie bei Maschi- 
nenspracheprogrammen ab. Der gesamte Programmteil wird abge- 
schlossen durch eine Routine, die den Rücksprung bewirkt, also 
die Funktion des oben erklärten Programmteils wieder aufhebt 
(Bild 10). Es lädt die öberste Adresse auf dem Returnstack in den 
IP und springt dann wieder zu NEXT. CODE und CEND sind zusammen- 
gehörige Hilfsprogramme, die diesen Typ von Namen, den wahr- 
scheinlich häufigsten, überhaupt ermöglichen. 


2.4 Die Compilerliste 


Wenn also jeder verschiedene Namenstyp andere Adressen im Kode- 
feld verlangt, woher weiß dann der Compiler, welche Adresse er zu 
benutzen hat, wenn ein neuer Name definiert wird ? Dies geschieht 
durch die Deklaration. Der Programmierer entscheidet, welchen Typ 
er kreiert. Daraufhin agiert der Compiler entsprechend. 
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Suse 1 I CHARLY I 
ae T ce I 1 ER 
I-->1I I 4 I DELTA I 
------ I Routine I 1 
I UN P T I 
I I 
en 1 
l 
Returnstack 1 
nn I 
I BETA I- 
I TE 
I I 
Bild 10 Die Prozedur CEND beendet ein Programm 


vom zusammengestzten Typ 


Schon ganz zu Anfang des Kapitels wurde erwähnt, daß einige Namen 
während des Compilierens andere Aktionen auslösen als während der 
Ausführung. Das ist auch sofort einleuchtend. Als Beispiel be- 
trachten wir eine Variablendeklaration (Bild 11). Die Zeichenfol- 
ge VAR EGON bewirkt während des Compilierens folgende Aktionen: 


* Es wird ein Kernprogramm angelegt. Das Kodefeld enthält 
die Adresse der VARIABLE-Routine; das Parameterfeld den 
notwendigen Speicherplatz (2 Byte). 


* Der Name EGON wird in die Namensliste eingetragen. Die 
zugehörige Adresse zeigt auf das o.a. Kernprogramm. 


Dagegen erzeugt die Nennung des Namens EGON während des Compi- 
liervorganges lediglich den Eintrag der zugehörigen Adresse in 
den Kodebereich. Diese Adresse bewirkt dann während der Ausfüh- 
Tungszeit, daß ein Zeiger auf das Parameterfeld der Variablen 
EGON auf den Stack gelegt wird. Dies erscheint einleuchtend. Aber 
woher weiß der Compiler, ob er während des Compilierens lediglich 
eine Adresse abzulegen hat oder aber mehrere, für die jeweilige 
Aktion ganz spezifische Befehle durchführen muß? Die Antwort 
darauf ist ganz einfach. Denn wie auch aus Bild 2 hervorgeht, 
benutzt der Compiler 2 Listen, nämlich 
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(Kane ——n 
I I 
---------- Variablenbereich 
I I Gl I 
euer , aisie Bemeniee ÄDR zes 
--> I VAR I--> I I -->1 VAR I --> IVARIABLEI 
l =--2-2-22- 022 I I =. 
1, I EGON I I Routine I- I 00 I 
| ner I 1 Bere 
BORENENBEER I T weuieine 1 I I 
I N era, l Sasse 
----- I I 1, I 
IP (2). A 
l Namensliste 
4 I I 
- während der l ++ - 
Compilezeit IL % I 
"-#l ECON I 
I ADR 1 
I T 
I I 
I 1 T I DE 00 nenn 
Se la  ueiue eeie I VARIABLE I 
--> I EGON I ---> IVARIABLEI --> I I--> I I 
l 24-22-2224 4242242222207 I Routine I 
l I Nö I 34 1 I I 
De 1, I 
EUREN 1 I BES EEE 
I I 
------- - während der Ausführung 
I? 1 
Bild 11 Die Verarbeitung einer Variablendeklaration 


In der Compilerliste stehen nun alle die Namen der Routinen, 


* die Compilerliste und 


* die Namensliste. 


die 


schon während der Erzeugung des Objektkodes die Ausführung einer 


Prog 


Compiler nicht verändert werden. 
lediglich als Adressen. 
abgelegt und bestimmen während der 


dage 
Kode 


rammfolge verlangen. 


gen existieren 


bereich 


Die Einträge in 
Sie 


Diese Liste kann vom Benutzer durch den 


der Namensliste 
werden in den 
Ausführungszeit 


die Reihenfolge der Abarbeitung der gewünschten Routinen. 
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2.5 Generatoren für die Programmtypen 


Mit dem RPNL-Compiler lassen sich zunächst nur Programme vom 
zusammengesetzten Typ erzeugen. Das sind also solche, die als 
Objektkode wiederum den Zwischenkode benutzen. Programmteile in 
Maschinensprache lassen sich bislang nicht einbauen. Bevor aber 
Programme vorgestellt werden, die genau dies leisten, sollen die 
Programmtypen nochmals definiert werden. 


Typ 1: Maschinenspracheprogramm 
Es wird von einem anderen Maschinenspracheprogramm mit einem 
CALL-Befehl, beispielsweise CD XX YY aufgerufen. Der Typ 1 
selbst wird mit einem RETURN (z. B. C9) abgeschlossen. 


Typ 2: _Kernprogramm 
Es beginnt mit dem sogenannten Kodewort. Diesem folgt ein 
Programm in Maschinensprache. Das Kodewort selbst ist eine 
Adresse. Und zwar genau die der ersten Instruktion in Ma- 
schinensprache. Im Normalfall ist dies auch die Adresse des 
Kernprogrammes, um 2 erhöht. Der Typ 2 wird abgeschlossen 
durch einen Sprung zum Internen Übersetzer. 


Typ 3: Der zusammengesetzte Typ 

Dieser Typ enthält keine Anteile mehr an Maschinensprache. 
Er besteht ausschließlich aus Adressen, die zu anderen Pro- 
grammen verweisen (Vektorliste). Diese Programme können dann 
vom Typ 2, aber auch vom Typ 3 sein. Die erste und die 
letzte Adresse der Programme dieses Typs sind stets speziel- 
le CALL-und RETURN-Anweisungen. Dies ist deshalb notwendig, 
damit der Interne Übersetzer die Typen 2 und 3 unterscheiden 
kann. Denn beide Typen beginnen mit einer Adresse. 


Die 3 Programmtypen sind in einer festgelegten Hierarchie geord- 
net. Das soll bedeuten, daß nicht jeder Typ jeden anderen aufru- 
fen kann. Es sind aufgrund des Aufbaus folgende Aufrufe möglich: 


V bedeutet: kann aufrufen: 
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Die Begründung hierfür wird dann klar, wenn man sich die Funk- 
tionsweise des Internen Übersetzers vor Augen hält: Zunächst 
erhöht er den Programmzähler, so daß dieser zur aktuellen Spei- 
cherstelle zeigt. Er greift deren erstes Wort (das ist immer eine 
Adresse) auf, springt dorthin und führt die entsprechende In- 
struktion aus. Dies ist beim Typ 2 ein Befehl in Maschinensprache 
und beim Typ 3 wiederum eine Adresse. Wie aber schon angedeutet, 
müssen alle Programme vom Typ 3 letzten Endes doch in ein Pro- 
gramm vom Typ 2 münden, damit der Prozessor die entsprechenden 
Instruktionen auch ausführen kann. Man vergegenwärtige sich, daß 
der Typ 1 mit dem Internen Übersetzer nie in Berührung kommt. Das 
gesamte Compilerprogramm setzt sich wie folgt aus den einzelnen 
Programmtypen zusammen: 


ca. 80 % Programmtyp 3 
ca. 10 % Programmtyp 2 
ca. 10 % Programmtyp 1 


Aus der Beschreibung der Programmtypen erkennt man, daß der Typ 3 
maschinenunabhängig ist, d.h. diese Programmteile sehen bei einem 
Z-80 Computer genauso aus wie bei einem 6502. Also: Wird der 
RPNL-Compiler (ursprünglich für Z-80 geschrieben) wumgeschrieben 
für einen anderen Prozessortyp, dann sind lediglich etwa 20 % des 
Gesamtprogrammes neu zu erstellen. Der Rest sind Adressänderungen 
(die natürlich ein Assemblerprogramm erledigt). Letzten Endes 
bedeutet das sogar, daf ein Programm, das auf einem 6502 laufen 
soll, auf einem Z-80 erstellt werden kann. 


2.5.1 CALL (Syntax: CALL NAME) 


Das im folgenden beschriebene Programm ermöglicht es, den Pro- 
grammtyp 1 einzugeben. Dabei besteht der Programmtext aus Sedezi- 
malzahlen. Eine Eingabe in Assembler (Mnemonics) ist einer Erwei- 
terung vorbehalten. Dazu sind im wesentlichen 3 Aktionen durchzu- 
führen: 


(1) Setzen von Anfangswerten 
(2) Verarbeitung der Eingabe von HEX-Zahlen 
(3) Aktualisierung der Systemvariablen 


Die Aktion (1) wird von dem Programm INIT vollzogen. 


PROGRAMM INIT 

SETZE das Compiler-Flag auf Null 

LIES den Namen 

TRAGE ihn ein in die Interpreterliste 
ENDE 


Die Durchführung der Aktionen (2) und (3) ist Aufgabe des Pro- 
grammes EINGABE. 
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PROGRAMM . EINGABE 
WIEDERHOLE 
LIES das nächste Wort 
WENN es eine HEX-Zahl ist, 
DANN trage es ein in den Kodebereich 
SONST 
SUCHE das Wort in der Interpreterliste. 
WENN es gefunden wird, 
DANN trage seine Adresse ein, 
SONST melde Fehler. 
ENDE 
ENDE 
BIS das Compiler-Flag ungleich Null ist. 
ENDE. 


Insgesamt sieht CALL so aus: 


PROGRAMM CALL 
INIT 
EINGABE 
ENDE 


Die Eingabe der Programmtypen 1 wie auch 2 wird abgeschlossen 
durch das Schlüsselwort CEND. 


PROGRAMM CEND 
SETZE das Compiler-Flag auf ungleich Null 
ENDE 


2.5.2 CODE (Syntax: CODE NAME) 


Das Programm CODE, das die Eingabe des Programmtypes 2 er- 
möglicht, ist im Aufbau dem Programm CALL ähnlich. Es geht ledig- 
lich insofern darüber hinaus, daß noch ein Sprung zum Internen 
Interpreter (NEXT) an den Schluß des Programmtextes gesetzt wird. 


PROGRAMM CODE 
INIT 
TRAGE den 'Namen + 2' in den Kodebereich ein 
EINGABE 
TRAGE 'C3 NEXT' in den Kodebereich ein 
KORRIGIERE die Systemvariablen 

ENDE. 


Ein kurzes Anwendungsbeispiele für die Programmtypen 1 und 2: 


CALL $ADD 
; ADDITION DER KONSTANTEN O010H AUF DEN INHALT 
; DES REGISTERS HL 
16 00 ; LD D,00 
1E 10 ; LD E, 10H 
19 ; ADD _ HL,DE 
c9 ; RET 
CEND 
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CODE ADI 
; AUF DEN DIE BEIDEN OBERSTEN WERT DES STACK 
; WIRD DIE KONSTANTE 10H ADDIERT 
E1 ; POP HL 
CD $ADD ; CALL  $ADD 
E5 ; PUSH HL 
c1 ; POP BC 
E1 ; POP HL 
CD $ADD ; CALL  $ADD 
65 ; PUSH HL 
c5 ; PUSH BC 
CEND 


PROGRAM HAUPT 


END 


2.6 Das Programmiersystem 


Der Compiler ist eingebettet in ein Rahmenprogramm, das neben dem 
Starten des Compilers auch die Ausführung von Hilfsroutinen und 
schließlich der Benutzerprogramme ermöglicht. Im nachfolgenden 
Abschnitt werden die dazu notwendigen Algorithmen und die zur 
Verfügung stehenden Prozeduren vorgestellt. 


2.6.1 Der Dialog 


Computer sollen so einfach wie möglich zu bedienen sein. Deshalb 
muß es ein Programm geben, daß den Dialog ermöglicht zwischen 
Anwender und Computer, d.h. die Wünsche des Anwenders dem Compu- 
ter übersetzt. Dazu stehen mehrere Prozeduren in einem Betriebs- 
system zur Verfügung. Dieses Betriebssystem meldet sich zunächst 
mit "Ok!" und Übergibt die weitere Steuerung dann dem Programm 
INTERACT, dem eigentlichen Anwender-Übersetzer. Damit lassen sich 
weitere Systembefehle, aber auch Programme eingeben, compilieren 
und ausführen. 


INTERACT 


Dieses Programm wird beim Start des Compilers automatisch 
aufgerufen. Der Anwender gibt auf dem Eingabemedium Anwei- 
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sungen ein. Daraufhin untersucht das System die aktuelle 
Zeile nach folgendem Algorithmus: 


PROGRAMM INTERACT 
LIES die Zeile 
WIEDERHOLE folgendes 
UNTERSUCHE das nächste Wort 
WENN es in der Namensliste steht, 
DANN führe den dazugehörigen Kode aus 
SONST 
WENN es eine Zahl ist, 
DANN lege sie auf den Stack, 
SONST 
GIB "Fehlermeldung" aus, 
BIS "Ende der Zeile" erkannt; 
SCHREIBE "Ok!"; 
ENDE. 


(Der obige Algorithmus ist natürlich kein RPNL, sondern eine 
Vorstufe. Man sieht leicht, wie umgangssprachlich ein Programm 
formuliert werden kann.) 


Es soll noch einmal erwähnt werden, daß das Betriebssystem keine 
Routine aus der Compilerliste aufrufen kann. Diese Liste ist dem 
Compiler vorbehalten (und selbst der kann sie lediglich lesen). 
Deshalb durchsucht INTERACT ausschließlich die Namensliste nach 
ausführbaren Programmen. 


2.6.2 Die Systembefehle 


Im folgenden Abschnitt werden die Befehle vorgestellt und er- 
klärt, die es ermöglichen, 


- RPNL-Programme dem Computer im Dialog mitzuteilen 
und 
- daraus lauffähige Software zu compilieren. 


NEW 


Der Befehl NEW löscht alle eingegebenen Definitionen 
(Programme, Deklarationen) und setzt alle internen Zeiger 
und Zähler auf Anfangswerte. Im einzelnen sind dies: 


- Beginn der Namensliste (Liste der Namen, die der 
Benutzer definiert), 

- Beginn des compilierten Programms (das ist der Be- 
reich, wo der Zwischenkode abgespeichert wird), 

- Beginn des Returnstack (Stapelspeicher für die RÜück- 
sprungadressen), 

- Beginn des Parameterstack, 

- Beginn des Variablen- und Konstantenbereiches. 
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LIST 
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Dieser Befehl unterstützt die Fehlersuche und die Pro- 
grammerstellung allgemein. Mit ihm kann man einen TRACE- 
Programmlauf durchführen. Nach Eingabe des Befehls LIST 
werden alle bisher eingegebenen einfachen Zeiger mit 
ihren zugehörigen Adressen und aktuellen Werten im Dezi- 
malsystem ausgegeben. Folgendes Beispiel zeigt die Wir- 
kungsweise. 


-OK! 
-NEW 
-DECLARE 
VAR WERT VAR WERTZ 
DEND 
-Ok! 
-PROGRAM TEST 
123 WERTI : 
321 WERT2 


END 

-Ok! 

“LIST 

WERT2 6167 0 
WERT 6163 0 
TEST 6912 4504 
-Ok! 

-TEST 

-LIST 

WERT2 6167 321 
WERT 1 6163 123 
TEST 6912 4504 
-Ok! 


wir können aus diesem Beispiel mehrere Erkenntnisse 
schöpfen. Die erste Eingabe des Befehls LIST zeigt, daß 
die einfachen Zeiger TEST, WERT1I und WERT2 in die 
Namensliste eingetragen sind, und den Variablen WERT1 und 
WERT2 ist ihr Anfanaswert (wie bei allen Variablen), 
nämlich die Null zugewiesen. Erst nach dem Programmlauf 
TEST zeigt der Ausdruck von LIST, daß die Speicherinhalte 
von WERTI jetzt in 123 bzw von WERT2 in 321 geändert 
worden sind. Bei TEST ändert sich natürlich nichts. will 
man einen TRACE-Lauf starten, so wird der Befehl LIST an 
geeigneter Stelle im Programm eingebaut. In unserem 
Beispiel könnte dies so aussehen: 
PROGRAM TEST 
123 WERTI : 
321 WERT2 : 
LIST 


END 


MEMORY 
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Nach Eingabe dieses Befehls wird der noch zur Verfügung 
stehende Speicherraum in Byte angezeigt. Auch diese Zahl 
wird dezimal angegeben. 

Unter Speicherraum ist der derjenige Raum zu verstehen, 
der für compilierte Programme zur Verfügung steht. 


Dieser Befehl setzt den DMA-Bereich wieder zurück auf 
80H, verläßt den RPNL-Compiler und springt zurück ins 
Betriebssystem, veranlaßt somit einen Warmstart. 


SAVE NAME 


FILES 


FILES 


Dateien 
RPNL 
VERS 


DRON 


DROFF 


Mit diesem Befehl sichern Sie ein Programm, das Sie 
gerade mit dem Compiler erfolgreich übersetzt haben. 
Dieses Programm ist 


1. auf der Diskette im Betriebslaufwerk gespei- 
chert und 

2. unter NAME im CP/M Betriebsystem direkt auf- 
rufbar. Der Zusatz ".COM" wird vom System 
angebracht. 


Wenn dieses Programm keine Diskettenbefehle benutzt, 
sollten Sie vor dem Compilieren den Befehl NOFILES geben. 


Dadurch wird Ihr Programm auf der Diskette kürzer und ist 
auch schneller geladen. 


Dieser Befehl entspricht in etwa dem DIR des CP/M und 
gibt das Directory der aktuellen Diskette aus. 


Beispiel: 


auf dem Laufwerk A: 
„COM E8O „COM &MSK „RPN COPY „COM 
.„BRF SERIE „BRF TEST TAT BIOS „MAC 


Alle Ausgaben werden auf dem Drucker protokolliert. 


Schaltet DRON und somit den Drucker wieder aus. 
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Alle Befehle des Betriebssystems können Sie natürlich auch in 
Ihren Programmen verwenden. Eine Ausnahme bildet die Aktion SAVE. 


Die 
chen 


von dem CP/M oder kompatiblen Systemen bekannten Steuerzei- 


ETRL P Ein-/Auschalten des Druckers 
ETRL S Anhalten der Ausgabe 
CTRL Q Fortsetzen der Ausgabe 


haben keine Gültigkeit mehr, da bei der Ausgabe direkt die Ein- 


sprünge in den BIOS benutzt werden, die wesentlich schneller 
sind. 
Kommentare 


Darüber hinaus besteht die Möglichkeit, mit dem Zeichen 
';'  (Semikolon) Kommentare in ein Programm einzubauen, 


d.h. alle Zeichen zwischen dem ';' und dem Zeilenende 
werden als Kommentar aufgefaßt und nicht übersetzt. Zu 
beachten ist dabei allerdings, daß zwischen dem ';' und 


dem ersten Zeichen des Kommentartextes mindestens ein 
Leerzeichen stehen muß. 


Fehlermeldungen 
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Das System kann während der Verarbeitung folgende Fehlermel- 
dungen ausgeben: 


- Not defined: WORT 
Sie haben versucht, eine Prozedur WORT zu 
starten, die nicht definiert worden war. Das 
Programm INTERACT hat diesen Fehler entdeckt. 


- WORT is undefined 
Sie haben versucht, eine Prozedur/Funktion WORT 
in einer neuen Definition anzuwenden, die nicht 
definiert worden war. Der Compiler hat diesen 
Fehler entdeckt. Diese Fehlermeldung führt zum 
Abbruch des Kompiliervorganges. 


- Dictionary full 
Der Kodebereich und die Namensliste, die während 
des Betriebes aufeinander zu wachsen, sind 
kollidiert. Mit anderen Wort ist das Programm zu 
lang. Sie können dies dadurch umgehen, indem sie 
stärker modularisieren und die Programme 
nacheinander compilieren. 


Notizen: 


3. Die höhere Programmiersprache RPNL 


3.1 Die Daten 
RPNL verarbeitet 2 Arten von Daten, nämlich 


- numerische Daten (Zahlen) und 
- Zeichenketten (Strings). 


Innerhalb der numerischen Daten werden 3 verschiedene Datentypen 
unterschieden, die ebenso wie die Zeichenketten im folgenden 
näher vorgestellt werden. 


3.1.1 Die Datentypen 
INTEGER 


sind einmal Zahlen im mathematischen Sinne, für die darüber 
hinaus gilt 


DO €= INTEGER €= 65535. 


Also: RPNL verarbeitet natürliche Zahlen zur Basis 10, die 
nicht größer sind als 2**16-1. 


Logische Werte (BOOLEAN) 


Dieser Datentyp umfaßt die beiden wahrheitswerte "wahr" und 
"falsch". Wenn oben behauptet wurde, dieser Typ gehöre zu 
den numerischen Daten, dann deshalb, weil die wahrheitswerte 
durch Zahlen repräsentiert werden, nämlich 


falsch - null 
wahr - - 1 (OFFRER).: 


Das Array 


Der Datentyp Array faßt eine feste Anzahl von Elementen 
des gleichen oder auch unterschiedlichen Typs zusammen. 
Diese Datentypen können in RPNL alle Typen außer dem 
Array selbst sein. Bedingt durch den Aufbau der Sprache 
kann die Größe eines Array nur einmal fest vereinbart 
werden. Eine dynamische Veränderüng, insbesondere auf- 
grund eingegebener Daten im Laufe eines Programmes 

ist nicht möglich. Eine weitere Einschränkung ist darin 
zu sehen, daß lediglich eindimensionale Arrays vereinbart 
werden können. Dieser Mangel kann aber durch geeignete 
Maßnahmen leicht umgangen werden. Beim Zugriff auf die 
Elemente eines Array wird übrigens deutlich, wie nahe 
RPNL an der Assemblerebene arbeitet, ohne dabei aber 
deren Nachteile in Kauf nehmen zu müssen (siehe hierzu 
die Beispielprogramme in Kapitel 4). 


Die höhere Programmiersprache RPNL 


Der String 


ist eine Zeichenkette, die aus einzelnen druckbaren Zei- 
chen besteht. Wird innerhalb eines Programmes ein String 
vereinbart, so wird der zugehörige Text in Form einer 
Folge von Zeichen angegeben, die durch Hochkommata be- 
grenzt sind. Wird die Zeichkette durch ein Eingabemedium 
eingelesen, so ist das zuerst eingegebene auch das erste 
Zeichen des String. Und das Zeichen vor dem Wagenrücklauf 
bzw Zeilenvorschub das letzte. Dies bedeutet insbeson- 
dere, daß diese Steuerzeichen nicht Bestandteil eines 
String sein können. Die Länge eines String ist auf maxi- 
mal 255 Zeichen festgelegt. Das Format, das zur Speiche- 
rung eines String benutzt wird, sieht folgendermaßen aus: 


Länge (1 Byte ) 
ASCII-Folge des Textes 


Beispiel: 05 54 45 58 54 
für "TEXT! 


3.1.2 Variablen und Konstanten 


Gemeinsam ist Variablen und Konstanten, daß sie Platzhalter für 
Daten darstellen, denen vom Anwender Namen gegeben werden. Der 
Unterschied besteht darin, daß 


Konstanten nach der Deklaration nicht veränderbar, also 
konstant sind, dagegen 

Variablen ihren Wert im Laufe der Ausführung eines 
Programmes beliebig oft ändern können (natürlich vom 
Anwender gesteuert). 


Vor der ersten Benutzung im Programn mÜssen alle verwendeten 
Namen (im obigen Sinne) deklariert werden (siehe hierzu auch Kap. 
3.2.1). Dabei muß man sich entscheiden, ob dieser Platzhalter als 
Konstante oder Variable benutzt werden soll (dies trifft auf das 
Array nicht zu; Array-Elemente sind immer Variablen). Dabei hat 
man sich noch nicht festgelegt, für welche Datentypen diese Namen 
Verwendung finden sollen. Das geschieht im Prinzip erst dann, 
wenn sie (die Variable oder Konstante) zum ersten Male benutzt 
wird. Folgende Verwendungsmöglichkeiten ergeben sich für die 
Datentypen: 


I Datentyp I Verwendung möglich als I 
I d T 
I Integer I Variable oder Konstante I 
I Boolean I Variable I 
I Array I Variable I 
2 String I Variable oder Konstante I 
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Da man das Diagramm auch umgekehrt lesen kann, wird die letzte 
Aussage bekräftigt (also kann beispielsweise eine Variable als 
Integer, Boolean oder String benutzt werden). Diese Aussage ist 
wichtig, ist aber möglicherweise erst in späterem Zusammenhang 
verständlicher. 


3.1.3 Standardnamen 


Einigen Konstanten sind schon Werte oder Bedeutungen von vornehe- 
rein zugeordnet und mit Standardnamen belegt; diese Namen sind 
für diese speziellen Zwecke reserviert. Sie haben eine stets 
gleichbleibende Bedeutung und müssen im Programm selbst durch 
Deklaration nicht erklärt werden. Folgende Standardnamen für 
Konstanten sind in RPNL festgelegt: 


I Name I Bedeutung I Datentyp I 
I 1 I I 
I I I Laufindix der I Integer I 
I I FOR-LOOP I I 
I TRUE I logisch "wahr" T. Boolean I 
I FALSE I logisch "falsch" E Boolean TE 


Darüber hinaus sind Standardnamen vorbehalten für Prozeduren und 
Funktionen. 


3.2 Aufbau der Programme 
Jedes Programm besteht grundsätzlich aus drei Teilen, nämlich 


- der Deklaration 
- der Programmklammer mit Namen 
- der Anweisungsliste. 


Dabei können in Sonderfällen die Deklaration (wenn keine oder 
keine neuen Variablen benötigt werden) oder die Anweisungsliste 
(wenn nur Variablen oder Konstanten deklariert werden) fehlen. 
Zum Aufbau der Programme ist weiterhin zu beachten, daß alle 
aufeinanderfolgenden Schlüsselworte und Namen durch mindestens 
ein Leerzeichen (i.a. Space) getrennt werden müssen. Dort wo ein 
Leerzeichen stehen darf oder muß, dort dürfen auch mehrere ste- 
hen. Diese Regel gilt auch in ihrer Umkehrung. Diese Handhabung 
der Leerzeichen ist also die allgemein übliche. 


3.2.1 Die Deklaration 
Der Deklarationsteil wird eingeleitet durch das Schlüsselwort 


DECLARE und beendet mit DEND. Alle Namen von Programmen (klar!), 
aber auch von Variablen, Konstanten, Arrays oder Strings, allge- 
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mein also von Daten müssen vor ihrem ersten Aufruf deklariert, 
d.h. vereinbart werden. 


Doch bevor Näheres zu der Deklaration der Datentypen gesagt wird, 
muß etwas zu den Namen ausgeführt werden. Namen sind in, RPNL 
beliebige Folgen von mindestens einem Zeichen, also Buchstaben, 
Ziffern oder Sonderzeichen. Die maximale Länge eines Namens darf 
255 (!) Zeichen betragen. Die Nennung eines Namens innerhalb 
eines Programmes generiert eine Adresse, aber keinen Wert einer 
Variablen. Dies gilt lediglich für Konstanten. Dieser wesentliche 
Unterschied muß dringend beachtet werden, da sonst nichtlauffähi- 
ge Programme erzeugt werden. Welche Bedeutung diese Adresse nun 
hat, kann einmal vom Programmierer bestimmt werden, oder sie ist 
bereits durch die Deklaration festgelegt. Es ist jedoch immer so, 
daß die Namen bzw die durch sie generierten Adressen auf Spei- 
cherstellen zeigen. Deshalb werden sie als einfache Zeiger be- 
nannt. 


Bei der Deklaration erfolgen im wesentlichen zwei Dinge. Einmal 
wird ein Name als symbolische Adresse eingeführt (siehe oben), 
andererseits wird entsprechender Speicherraum reserviert. Es sind 
3 Arten der Vereinbarung möglich: 


VAR einfacher Zeiger 


Es wird eine Variable mit der Länge von 16 Bit verein- 
bart. Sie ist durch den einfachen Zeiger ansprechbar. Ihr 
Anfangswert ist Null. Dieser Wert kann beliebig oft durch 
eine geeignete Anweisung geändert werden. 


CONST einfacher Zeiger Zahl 


Es wird eine Konstante mit der Länge 16 Bit vereinbart. 
Sie ist durch den einfachen Zeiger ansprechbar. Ihr Wert 
ist stets gleich der Zahl in der Vereinbarung. Dieser 
wert kann im Programm nicht geändert werden. 


ARRAY einfacher Zeiger Zahl 


Es wird ein Speicherbereich von Variablen mit der Länge 
16 Bit vereinbart. Und zwar genau so viele (Variablen) 
wie die Zahl angibt. Die Anfangswerte dieser Variablen 
sind allerdings nicht gleich Null, sondern zufällige 
Bitkombinationen. Wie Elemente von Arrays angesprochen 
werden, wird im Abschnitt 4 erklärt (Beispielprogramm 
"Sortieren eines Array). 


STRING einfacher Zeiger 'Text' 
weist dem Text Speicherplätze zu, auf die der Zeiger 


deutet. Die Ausgabe des Textes erfolgt mit PRINT(S). 
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Da nach einer Deklaration über die Namensliste von allen Pro- 
grammteilen aus auf alle Variablen und Konstanten zugegriffen 
werden kann, sind solche deklarierten Variablen als global zu 
betrachten. Werden dagegen die repräsentierten Werte in irgendei- 
ner Form aufgerufen und auf den Stack gelegt (beispielsweise als 
Parameterübergabe), so kann man nur lokal daraufzugreifen. 


3.2.2 Die Programmklammer mit Namen 


Ausnahmslos beginnt jedes Programm mit dem Schlüsselwort PROGRAM 
und endet mit END. Der Name des Programmes folgt dem Wort PROGRAM 
und dient der späteren Identifizierung. Identifizierung sollen 
heißen Ansprechbarkeit. Denn damit erst wird die Möglichkeit 
geschaffen, dieses Programm (-stück) ausführen zu lassen. Sei es 
als Unterprogramm, Hauptprogramm oder rekursiver Aufruf (dazu 
später mehr). 


3.2.3 Die Anweisung 


Dieser Programmteil enthält die Algorithmen, die die Lösung des 
gestellten Problems vollziehen. Algorithmen bestehen aus Anwei- 
sungen, die in einer bestimmten Reihenfolge, manchmal auch mehr- 
mals auszuführen sind. Dazu stellt RPNL eine gewisse Anzahl von 
Schlüsselworten und Standardnamen zur Verfügung. Diese Menge läßt 
sich zweckmäßigerweise in 3 Gruppen einteilen: 


- einfache Anweisungen 
- Ein- und Ausgabeanweisungen 
- Anweisungen zur Steuerung der Ausführung. 


Bevor auf diese Gruppen im einzelnen näher eingegangen wird, muß 
der Begriff Operand, so wie er auch meistens verwendet wird, 
erklärt werden. Als Operand sind möglich: 


Zahl 


repräsentiert eine Folge von Ziffern, die einen Wert 
zwischen O und 65535 als Dezimalzahl repräsentieren. 


Beispiele: 13 oder 4567 oder 49876 
aber nicht -17 
und nicht 89012. 


Hier wird leider eine Einschränkung offensichtlich. Es 
werden nur Zahlen verarbeitet, die positiv und kleiner 
oder gleich der Zahl 65535 sind, also insbesondere keine 
negativen Zahlen. Allerdings wird man mit ein wenig 
RPNL-Praxis schnell merken, daß man einfache Routinen 
schreiben kann, die ‘diese Mängel vollends beheben. 
Dagegen machen sich die relativ einfachen Routinen der 
Integerarithmetik in kurzen Ausführungszeiten vorteilhaft 
bemerkbar. 
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Einfacher Zeiger 


Im Abschnitt 3.2.1 wurde dieser Begriff eingeführt und 
auch schon erklärt. Deshalb nur noch kurz etwas zu deren 
Aufbau. Neben ihrer syntaktischen Aufgabe tragen die 
einfachen Zeiger wesentlich zur Programmdokumentation 
bei. Denn durch eine geeignete Namensgebung steigt die 
Lesbarkeit der, Programme. Deshalb sind dem Aufbau der 
einfachen Zeiger kaum Grenzen gesetzt, insbesondere 
nicht, was deren Länge anbelangt. Es ist aber darauf zu 
achten, daß keine Kollision mit den reservierten 
Standardnamen und Schlüsselworten auftritt. 


Gültige Beispiele für einfache Zeiger sind: 
WERT ZAHL NUMMER 1 X+2. 


Ausdruck 


ist der verallgemeinerte Begriff für verarbeitete Daten 
(im Sinne des Kapitels 3, auf die die folgenden Prädikate 
angewandt wurden). Insbesondere kann ein Ausdruck wieder 
aus Ausdrücken zusammengesetzt sein, oder aber kann er 
einen Zeiger repräsentieren (was für den Zugriff auf ein 
Array wichtig ist). Dies zeigt ein wenig die 
Leistungsfähigkeit von RPNL. 


3.2.3.1 Einfache Anweisungen 
Es soll an dieser Stelle kurz auf die Besonderheiten der UPN 
hingewiesen werden. Der an sich einzige Unterschied zur arithme- 
tischen (Infix-) Schreibweise, der aber anfangs zu Schwierigkei- 
ten führen kann, besteht in der Reihenfolge der Operanden und 
Operatoren. Gewohnt ist man die Folge 

Ergebnis :=  Operand 1 Operator Operand 2 


oder bei einstelligen Prädikaten 


Ergebnis := Operator Operand 
Beispiele: 
WERT wa 37 4 14 
oder 
WURZEL :=  SQRT (36). 


Das gleiche sieht bei der UPN folgendermaßen aus: 
Operand 1 - Operand 2 Operator (=) Ergebnis. 


Das Gleichheitszeichen ist hier an sich nicht notwendig, da die 
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Anwendung des Operators automatisch das Ergebnis erzeugt. Und bei 
einstelligen Prädikaten 

Operand Operator (=) Ergebnis. 


Die gleichen Beispiele hierzu: 


37 14 + (=) WERT 
oder 
36 SQRT >) WURZEL. 


Diese Schreibweise wird konsequent bei allen Anweisungen benutzt. 
Beispiele: 
- einfacher Ausdruck 


Datumi Datum2 Operator! 


- zusammengesetzter Ausdruck 
WertA WertB Operator] Wertc Operator2 
oder auch 
A B Operator! Operator2 C Operator3 


Es fällt auf, daß die zusammengesetzten Ausdrücke keine Art von 
Klammern aufweisen. Dies ist auch unnötig, da die Regelung der 
Prioritäten, wie sie aus der Mathematik bekannt ist (beispiels- 
weise: "Punkt-geht vor Strichrechnung"), sich alleine aus der 
Reihenfolge der Nennung der Operanden und Operatoren ergibt. 
Damit werden auch aufwendige Auswertungsalgorithmen überflüssig. 


Mit diesem Vorwissen künnen nurı die einfachen Anweisungen vorge- 
stellt werden. Diese Anweisungsart steilt letzten Endes immer 
einen Ausdruck dar, der einem Zeiger zugewiesen werden kann. Ganz 
salopp gesprochen geschieht hier folgendes. Auf ein oder zwei 
Operanden werden ein - oder zweistellige Operatoren angewendet. 
Das entstandene Ergebnis kann dann beliebig wieder mit anderen 
Operanden verknüpft werden. Oftmals wird es einem Zeiger zugewie- 
sen werden, um es für eine spätere Verwendung abgespeichert und 
gesichert zu haben. . 


Welches sind nun ein- und zweistellige Operatoren ? 
Als einstellige sind implementiert: 


INC, DEC, NOT, DUP, "2, 
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Und als zweistellige Operatoren: 
+, -, DIV, *, MOD, SWAP, AND, OR und die Vergleichsoperatoren. 


Die entsprechende Syntax ergibt sich exakt aus dem Syntaxdia- 
gramm. Anwendungsmöglichkeiten werden eingehend im Kapitel 4 
durch Beispiele illustriert. Im folgenden wird die Semantik der 
Operatoren beschrieben.- Zunächst die einstelligen (das sind also 
die Funktionen, die einen Operanden erwarten und verarbeiten). 


Die einstelligen Operatoren 


INC Aufruf: 1 Operand 
Ergebnis: 1 Operand 
inkrementiert einen aufgerufenen Wert, d.h. der Wert wird um 
1 erhöht. 
DEC Aufruf: 1 Operand 
Ergebnis: 1 Operand 


dekrementiert einen aufgerufenen Wert, d.h. der Wert wird um 
1 erniedrigt. 


NOT Aufruf: 1 Operand 
Ergebnis: 1 Operand 
ist nur auf logische Werte anwendbar, also ein logischer 
Operator, hier der Negation. 
Das Ergebnis ist das in der Logik übliche (also wieder ein 
logischer Wert) und in der folgenden Wertetabelle angegeben: 


Operand I Ergebnis 
IRRE BERNEE ES EEE RRENE Tess une 
I 
TRUE il FALSE 
FALSE i TRUE 
ii 
DUP Aufruf; 1 Operand 
Ergebnis: 2 Operanden 


dupliziert (nicht verdoppelt) einen aufgerufenen Wert. Der 
bei TOP präsente Wert wird auf TOP-1 kopiert, so daß bei TOP 
und TOP-1 identische Werte vorhanden sind. 
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?(B) 


RND 


:=(B) 
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Aufruf: 1 Operand 

Ergebnis: 1 Operand 
Dieser Operation muß ein Zeiger vorangehen. Bei Aufruf wird 
dann der Inhalt der durch den Zeiger repräsentierten Spei- 
cherstelle (1 Byte) abgefragt und auf den Stack gelegt. 


Aufruf: 1 Operand 

Ergebnis: 1 Operand 
Dieser Operation muß ein Zeiger vorangehen. Bei Aufruf wird 
der Inhalt der durch den Zeiger repräsentierten Speicher- 
stelle (hier isi es 1 Doppelbyte bzw eine Adresse) abgefragt 
und auf den Stack gelegt (Umkehrung der Zuweisung). 


Aufruf: O0 Operanden 

Ergebnis: 1 Operand 
Bei Aufruf dieser Funktion wird eine Zufallszahl im Rahmen 
der Definition von Zahlen erzeugt und auf dem Stack abge- 
legt. Bei jedem ersten Aufruf der Funktion nach Starten des 
Compilers wird die gleiche Folge von Zufallszahlen erzeugt. 


Aufruf: 2 Operanden 

Ergebnis: DO Operanden 
Diese Funktion stellt die Zuweisung dar. Sie erfordert als 
Operanden mindestens einen Zeiger, der dann als zweiter (in 
der Reihenfolge der Nennung) Operand auftreten muß. Diesem 
wird dann der Wert des ersten zugewiesen. Und zwar hier als 
Doppelbyte bzw als ein Zeiger oder eine Adresse. 


Aufruf: 2 Operanden 

Ergebnis: 0 Operanden 
Auch diese Funktion stellt eine Zuweisung dar. Im Unter- 
schied zu := wird hierbei der Wert des ersten Operanden in 
einem Byte abgelegt. Er ist also auf einen Wert -= 255 
beschränkt. 


DIV 


MOD 


SWAP 


AND 
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Aufruf: 2 Operanden 
Ergebnis: 1 Operand 
Addition ven 2 üOperanden. 


- Aufruf: 2 Operanden 
Ergebnis: 1 Operand 
Subtraktion von 2 Operanden 


Aufruf: 2 Operanden 

Ergebnis: 1 Operand 
Ganzzahlige Division; der errechnete Rest ist nicht verfüg- 
bar (siehe hierzu MOD). 


Aufruf: 2 Operanden 
Ergebnis: 1 Operand 
Multiplikation von 2 Operanden 


Aufruf: 2 Operanden 

Ergebnis: 1 Operand 
Modulo-Division; es wird eine ganzzahlige Division durchge- 
führt, wovon aber nur der erechnete Rest verfügbar ist. 


Aufruf: 2 Operanden 

Ergebnis: 2 Operanden 
Vertauschen von Operand 1 und Operand 2 (bzw. es werden TOP 
und TOP-1 vertauscht, siehe hierzu auch Kapitel 2); die 
Operanden selbst werden nicht geändert. 


Aufruf: 2 Operanden 

Ergebnis: ] Operand 
ist nur auf logische Werte anwendbar, also ein logischer 
Operator, hier der Konjunktion. Das Ergebnis ist das in der 
Logik übliche (also wieder ein logischer Wert) und in der 
folgenden Wahrheitstabelle angegeben: 


Operand 1 I Operand 2 I Ergebnis 

OR ESIEEER Tees ee Te 
ie T 

TRUE I TRUE 1 TRUE 

TRUE I FALSE I FALSE 

FALSE I TRUE I FALSE 

FALSE T FALSE I FALSE 
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OR Aufruf: 2 Operanden 
Ergebnis: 1 Operand 

ist nur auf logische Werte anwendbar, also ein logischer 
Operator, hier der Disjunktion. Das Ergebnis ist das in der 
Logik übliche (also wieder ein logischer Wert) und in der 
folgenden Wahrheitstabelle festgehalten: 

Operand 1 d Operand 2 I Ergebnis 

EEE ER: N : 

I I 

TRUE I TRUE I TRUE 

TRUE I FALSE T TRUE 

FALSE T TRUE I: TRUE 

FALSE I FALSE I FALSE 

Vergleichsoperatoren Aufruf: 2 Operanden 
Ergebnis: 1 Operand 
liefern bei Anwendung auf Operanden, für die eine Ordnung 
definiert ist (das ist insbesondere der Typ INTEGER), logi- 
sche Werte als Ergebnis. Allerdings lassen sich nicht alle 
Vergleichsoperatoren auf alle Datentypen anwenden, d.h. 
Datentypen können mit einigen Vergleichsoperatoren unver- 
träglich sein oder auch nicht sinnvoll. Deshalb sind die 
anwendbaren Datentypen in der folgenden Tabelle mit ver- 
merkt. 
Operator Bedeutung anwendbar auf 
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I 
EEE I 


I 

I 

I I 

I ist gleich I Integer, Boolean, 

I I Array 

I ist ungleich I Integer, Boolean, 

I I Array 

I ist kleiner als I Integer, Array 
> I ist größer als I Integer, Array 

T, ist nicht größer als I Integer, Array 

I ist kleiner oder gleich I 

T ist nicht kleiner als I Integer, Array 

1 ist größer oder gleich I 

a ist gleich I String 

T ist nicht kleiner als I String 

1 ist größer oder gleich I 

I I 


Es gibt noch einen weiteren Vergleichsoperator, der in der 
Tabelle nicht aufgeführt ist, weil ihm eine Besonderheit 
eigen ist. Es ist dies der Operator 0=- . Er erwartet und 
verarbeitet nur einen Operanden und vergleicht diesen mit 
Null. Das Ergebnis ist der entsprechende logische Wert. 
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3.2.3.2 Ein erstes Programmbeispiel 


Mit dem bisher erworbenen Wissen. soll nun ein erstes Programm in 
der Programmiersprache RPNL formuliert werden. Dabei wird langsam 
vorgegangen und alle notwendigen Schritte eingehend erläutert. 
Wenn an einigen Stellen Anweisungen benutzt werden, die regulär 
erst in einem späteren Abschnitt eingeführt werden, dann ist 
deren Gebrauch so eindeutig, daß keine Mißverständnisse auftreten 
können. 


Wurzelziehen 


Aufgabe: 
Eine Funktion WURZEL zieht die Quadratwurzel aus einer na- 
türlichen Zahl. Der Radikant ist als TOP auf dem Stack 
abgelegt, das Ergebnis, die Quadratwurzel, ist nach dem 
Aufruf WURZEL. wieder als TOP auf dem Stack. Mit einem Pro- 
gramm SQRT soll die Funktion WURZEL aufgerufen und getestet 


werden. 
Algorithmus: 
Es wird die Iterationsvorschrift 
x #-YV/X 
n n 
x = 222-2 mNItX Re NY 
n+1 2 n 


benutzt. Auf deren Herleitung und Terminierung soll an die- 
ser Stelle nicht eingegangen werden. Entscheidend ist nur, 
ein geeignetes Abbruchkriterium festzulegen. Naheliegend ist 
es, mit der Iteration dann aufzuhören, wenn sie keine Ver- 
besserung mehr bringt, also 


Dieses Kriterium ist zumindest dann sinnvoll, wenn der Da- 
tentyp INTEGER verwendet wird. Als Startwert für X wählen 
wir Y selbst. 


Das Programm 
Zunächst soll wie gefordert die Funktion WURZEL definiert werden. 


Dazu wird die Iterationsvorschrift umgangssprachlich formuliert 
(programmiert): 
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PROGRAMM WURZEL 
DEKLARATION der Variablen 
ÜBERNAHME der Argmente (Y) 
WIEDERHOLE folgendes 
X = (X -Yodw X ) dWV 2, 
n+1 ö n n 


BIS X =X 
n+1 1 


ENDE der Schleife 
ÜBERGABE der Argumente (X ), 
n+1 
ENDE 


Der nächste Schritt in der Programmentwicklung ist die Festlegung 
der Namen für die Variablen. 


Es sei: 
Y --- Y 
x --- XALT 
n 
x --- XNEU 
n+1 


Damit kann die Deklaration geschrieben werden als 


DECLARE 
VAR Y VAR XALT VAR XNEU 
DEND. 


Der Radikant, also Y, wird als TOP übergeben. Da dieser Wert aber 
mehrmals gebraucht wird, muß TOP der Variablen Y zugewiesen und 
damit zwischengespeichert werden. Ebenso muß der Variablen XALT 
der Startwert Y übertragen werden. Der Speicherplatz TOP wird 
also zweimal gebraucht; deshalb wird er vor der ersten Zuweisung, 
die ihn zerstören würde, dupliziert. Demnach sieht die Übernahme 
der Argumente so aus: 


DUP  Y = XALT ve 


Nun gilt es, die Iterationsvorschrift, die in der Infixnotation 
vorliegt, in die UPN bzw in RPNL umzuformen. Dazu benutzen wir 
einen Baum, der folgendermaßen aufgebaut ist: Jeder Ast zeigt auf 
einen Operanden und jeder Knoten stellt eine Operation dar. An 
der Wurzel steht das Ergebnis. Es fällt intuitiv nicht schwer, 
unsere Iterationsvorschrift darzustellen als: 
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Xn+1  (XNEU) 


Bild 12 Die Erzeugung der UPN - Form durch eine Baumstruktur 


Durch den Rückgriff auf den Baum wird offensichtlich, in welcher 
Reihenfolge die einzelnen Operationen abzuarbeiten sind (da ja 
keine expliziten Klammern zur Verfügung stehen. In Wirklichkeit 
kann natürlich bis zur Tiefe des Stack geklammert werden.). Also 
wird die Iteration in RPNL folgendermaßen definiert: 


Y 2 XALT ? DIV 
XALT ? + 2 DIV XNEU := 


Die Schleifenabbruchbedingung ergibt sich klar als 

XALT ? XNEU 7 = 
und die Umspeicherung 

XNEU 3 XALT Se 
Nach der Schleife ist lediglich noch die Übergabe der Argumente 
zu formulieren. Gemäß der Konvention in der Aufgabenstellung 
legen wir mit 

XNEU ® 

das Ergebnis als TOP auf den Stack. Nachdem nun alle Schritte 


einzeln formuliert sind, können wir diese zu unserem RPNL-Pro- 
gramm zusammensetzen: 


DECLARE 

VAR Y VAR XALT VAR XNEU 

VAR ZAHL ; WIRD ERST SPÄTER GEBRAUCHT 
DEND 
PROGRAM WURZEL 

BUP Ye= XALT 3= 

REPEAT 


Y? XALT ? DIV 
XALT ? + 2 DIV XNEU := 
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XALT ? XNEU ? = UNTIL 
XNEU ? XALT := 


END 


An dieser Stelle sollen einmal zur Veranschaulichung die Bewegun- 
gen auf dem Stack während der Abarbeitung dargestellt werden. Es 
ist empfehlenswert, beim Einstieg in RPNL dieses Schema bei den 
ersten Programmentwürfen zu benutzen, da man sonst allzu schnell 
Schiffbruch erleidet. 


Anweisungs-I Stack X=don't care I 
schritt I TOP I TOP-1 I TOP-2 I 
I I I I 
VAR Y I RADIKANT I X I x I 
VAR XALT I RADIKANT I x I x Z 
VAR XNEU I RADIKANT ii x I x 1 
DUP I RADIKANT I  RADIKANT I x I 
Y I ADRESSE Y I  RADIKANT I RADIKANT I 
ı= I RADIKANT I X I x 1 
XALT T ADRESSE XALT I  RADIKANT I x I 
= I x I x I x I 
REPEAT T x I x I X 1 
Y®XALT®?I (XALT) I (Y) I x I 
DIV I (Y) DIV (XALT) I x 1 X I 
KALT I (XALT) I (Y)OIVEXALT) 1 X 
+ I (XALT)+CY)DIV(XALT) I x I x ii 
2 DIV I ((XALT)+ I x I x A 
I (Y)DIV(xALT))DIV 2 I X x I 
XNEU := 1 x 1 X I x I 
KALT ? I (XALT) T X I X 1 
XNEU ? I (XNEU) 1 (XALT) I x I 
= I TRUE/FALSE I x Y x I 
UNTIL I X I X 1 x I 
XNEU ? I (XNEU) I X I X I 
XALT := I x I X I X I 
LOOP I X I x I x I 
XNEU ? I (XNEU) I x I x ] 


Um die Funktion WURZEL zu testen, wird anschließend ein Programm 
SQRT entwickelt. SQRT hat allerdings weniger die Aufgabe, WURZEL 
auf seine Richtigkeit zu überprüfen, als vielmehr nur eine Zahl 
einzulesen, den Argumentwert zu übergeben, "WURZEL aufzurufen und 
das Ergebnis anzuzeigen. Auf eine umgangssprachliche Formulierung 
der Aufgabe wird verzichtet. Das Programm SQRT lautet in RPNL: 


PROGRAM SQRT 
ZAHL READ 
ZAHL ? WURZEL ZAHL := 
CR 
ZAHL PRINT 
END 


au 
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Wir haben nun zwei lauffähige Programme entwickelt, die wir in 
den Computer eingeben wollen. Wir wissen, daß der Rechner dazu im 
Status INTERACT stehen muß. Dies ist kein Problem, denn das ist 
er nach dem Start des Compilers und nach Ausführung eines Pro- 
grammes automatisch. Wir wollen uns vielmehr überlegen, in wel- 
cher Reihenfolge wir SQRT und WURZEL eingeben müssen. Ist eine 
bestimmte Reihenfolge zwingend oder ist sie beliebig? 

Wenn wir uns an den Abschnitt erinnern, in dem der Aufbau der 
Namensliste beschrieben ist, so wissen wir, daß Namen vom Compi- 
ler nur dann akzeptiert werden, wenn sie bereits deklariert 
worden sind. 


Schauen wir uns die beiden Programme diesbezüglich an, so stellen 
wir fest, daß ausschließlich folgende Reihenfolge der Eingabe 
möglich ist: WURZEL und dann SQRT. Die Begründug hierfür ist 
jetzt naheliegend. Geben wir nämlich zunächst SQRT ein, so erhal- 
ten wir bei Prüfung des darin vorhandenen Namens WURZEL eine 
Fehlermeldung (WURZEL ist ja noch nicht definiert bzw in die 
Namensliste eingetragen). 


Wenn Programme stark strukturiert sind und in viele Module ge- 
gliedert, ist dieses Problem oft gravierend und nur eine korrekte 
Planung des Programmes ist hier eine Hilfe. 


3.2.3.3 Die Ein- und Ausgabeanweisungen 


während die einfachen Anweisungen die Daten manipulieren und 
vergleichen, stellt die Gruppe der Ein- und Ausgabeanweisungen 
die Verbindung des Rechners zur Außenwelt dar. RPNL stellt dafür 
eine Reihe von Prozeduren zur Verfügung, die es einmal gestatten, 
Werte (Daten) einzulesen oder aber auch Werte (Daten) auszugeben. 
Es wurde absichtlich vermieden, sich auf irgendwelche Ein- oder 
Ausgabemedien festzulegen. Es kommen zwar meistens nur die Tasta- 
tur, Bildschirm oder Drucker in Frage, dies muß aber nicht so 
sein. Im folgenden wird die Semantik der einzelnen Prozeduren 
erklärt; die Syntax ergibt sich aus den Überschriften. 


ER 
bewirkt auf dem Ausgabemedium einen Wagenrücklauf und 
einen Zeilenvorschub, d.h. der Cursor wird an den Anfang 
der nächsten Zeile geschoben. 

WRITE 'Text' 


gibt bei Aufruf den Text aus, d.h. die Zeichenfolge, die 
durch Hochkommata eingeschlossen dem Standardnamen WRITE 
folgt. Der Text darf das Zeilenende nicht überschreiten. 
Die Zeilenlänge ist auf 80 Zeichen eingestellt. 


Beispiel: WRITE 'RPNL-Compiler' 
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Zeiger PRINT 


stellt auf dem Ausgabemedium eine Integer-Zahl dar und 
zwar genau die, auf die der vorangestellte Zeiger deutet. 
Die Zahl wird sechsstellig ohne Vorzeichen dargestellt; 
führende Nullen werden unterdrückt. 


Beispiel: WERT PRINT 


Zeiger PRINT(S) 


OUTPUT 


gibt eine als String zugewiesene Zeichenfolge aus und 
zwar genau die, auf die der zugehörige Zeicer deutet. Die 
Zeichenfolge muß vor der ersten Ausgabe deklariert (siehe 
hierzu unter STRING) oder eingelesen (siehe hierzu unter 
READ(S)) worden sein. 


Beispiel: 
TEXT STRING 'Dies ist ein Beispiel' 


TEXT PRINT(S) 


Diese Prozedur gibt ein Zeichen auf der Position auf dem 
Bildschirm aus, an der der Cursor steht. Das auszugebende 
Zeichen muß im Register C stehen. Die Prozedur wird als 
Unterprogramm vom Programmtyp 1 oder 2 augerufen. 


Beispiel: 


CODE AUSGABE 
; DIESES PROGRAMM GIBT 16 BLANKS AUS 


’ 


06 10 ; LD B,10H 
OE 20 ;LD  C,20H 
CD OUTPUT ; CALL OUTPUT 
10 FB ; DINZ OUTPUT 


CEND 


Wert OUTCHAR 
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Auch diese Prozedur gibt genau ein Zeichen aus, nämlich 
das an oberster Stackposition (also Wert). 


Beispiel: 


65 CHAR := 
CHAR ? OUTCHAR ; GIBT EIN "A" AUS 
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oder 
65 OUTCHAR ; GIBT AUCH EIN "A" AUS 
Zeiger READ 


liest eine Integer-Zahl von einem Eingabemedium und weist 
sie dem Speicherplatz zu, auf den der Zeiger deutet. 


Beispiel: WERT READ 


Zeiger READ(S) 


118SE eine Zeichenfolg ein und weist dieser 
Speicherplätze zu, auf die durch Zeiger zugegriffen 
werden kann. Die Eingabe wird durch Wagenrücklauf bzw. 
Zeilenvorschub beendet. Die erzeugte Zeichenkette wird 
auf einer Adresse abgelegt, die vor der Eingabe unter der 
Variablen SYSFIELD abfragbar ist. Nach Beendigung der 
Eingabe zeigt SYSFIELD auf die nächste freie 
Speicherstelle, an der Text abgelegt werden kann. 


Für ein Beispiel wollen wir einen Artikelnamen gefolgt von der 
zugehörigen Anzahl einlesen und wieder ausgeben lassen. Zur Ein- 
gabe der Daten wird mit Kommentaren aufgefordert. Das RPNL Pro- 
gramm zur Lösung der Aufgabe sieht so aus: 


DECLARE 
VAR ANZAHL VAR NAME 
DEND 


PROGRAM ARTIKELANZAHL 
WRITE "ARTIKELNAME: ! 
NAME READ(S) 
WRITE "BESTAND: ! 
ANZAHL READ CR CR 
WRITE ' ++ AUSGABE ++' CR 
ANZAHL PRINT WRITE "' ! 
NAME PRINT(S) 
END 


Das Programm erzeugt folgenden Ausdruck: 
ARTIKELNAME:  CPU-Karte 
BESTAND: 12 


++ AUSGABE ++ 
17 CPU-Karte 
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Zeiger READ(CH) 


Diese Prozedur hat die gleiche Funktion wie READ(S) mit 
dem Unterschied, daß eingegebene Kleinbuchstaben zu 
Großbuchstaben konvertiert werden. 


INCHAR 


Diese Aktion liest genau ein Zeichen von der Tastatur ein 
und legt es unter der Variablen ZEICHEN ab. 


3.2.3.4 Anweisungen zur Steuerung der Anweisungen 


Mit den Anweisungen, die bislang eingeführt wurden, ist es 
möglich, vollständige Programme zu schreiben. Allerdings sind 
dies lediglich lineare Abläufe, auf deren Verlauf nicht durch 
Variation der Daten Einfluß genommen werden kann. Genau dazu aber 
befähigt diese Gruppe von Anweisungen. Es wird durch sie die 
Möglichkeit eröffnet, abhängig von der Erfüllung einer Bedingung 
Anweisungen ausführen zu lassen oder nicht. RPNL unterstützt 
damit eine strukturierte Programmierung. An die Stelle von un- 
übersichtlichen GOTO-Statements treten REPEAT-UNTIL-LOOP, IF- 
ELSE-THEN Bedingungsanweisungen und andere Schleifenbedingungen. 


IF-ELSE-THEN 


Vor dem Schlüsselwort IF steht ein Ausdruck, der die Bedingung 
(also einen logischen Wert) darstellt und dahinter eine Anwei- 
sungsliste, die nur dann ausgeführt wird, wenn die Bedingung 
erfüllt ist (den logischen Wert TRUE hat). Abgeschlossen wird die 
Liste durch das Schlüsselwort THEN. Will man jemanden zur Eingabe 
einer ungeraden Zahl auffordern und dies auch überprüfen, so kann 
man die Aufgabe folgendermaßen angehen: 


DECLARE 
VAR ZAHL 
DEND 


PROGRAM UNGERADE 
WRITE "Geben Sie eine UNGERADE Zahl ein' 
CR ZAHL READ 
ZAHL 2? 2 MOD 1 = IF 
WRITE 'Dies ist eine ungerade Zahl' 
THEN 
END 


Die Forderung, daß man auf den Fall der Nichterfüllung der Bedin- 
gung gesondert zugreifen kann, ist naheliegend. Dazu kann im 
Bedarfsfalle das Schlüsselwort ELSE vor THEN eingefügt werden. 
Die Anweisungsliste, die hinter dem ELSE steht, wird dann ausge- 
führt, wenn die Bedingung vor dem IF nicht zutrifft (den logi- 
schen Wert FALSE hat). So kann die Eingabe einer geraden Zahl in 
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obigem Beispiel folgendermaßen reklamiert werden. 


DECLARE 
VAR ZAHL 
DEND 


PROGRAM UNGERADE 
WRITE "Geben Sie eine UNGERADE Zahl ein’ 
CR ZAHL READ 
ZAHL 2? 2 MOD 1 = IF 
WRITE 'Dies ist eine ungerade Zahl' 
ELSE 
WRITE "FEHLER! Dies ist eine gerade Zahl!' 
THEN 
END 


An dieser Stelle soll noch einmal an das Beispiel angeknüpft 
werden, das die Quadratwurzeln aus INTEGER-Zahlen berechnet hat. 
Man kann sich nun überlegen, ob für die Funktion WURZEL überhaupt 
alle Argumentwerte zugelassen sind. Nun, negative sicher nicht. 
Die sind für uns aber ungefährlich, weil Integerzahlen defini- 
tionsgemäß nichtnegative, ganze Zahlen sind. Aber wie steht es 
mit der Null ? Gemäß Vereinbarung gilt beim ersten Iterations- 
schritt Y = XALT. Im betrachteten Fall also gleich Null, was 
zwangsläufig schon beim ersten Rechenschritt zu dem unbestimmten 
Ausdruck 0/0 führt. Also muß die Null zwar nicht als Argument 
ausgeschlossen werden, denn da ist sie zugelassen, aber als Wert 
bei der Iteration. Dies geschieht durch eine zusätzliche IF-ELSE- 
THEN Bedingung. Die vollständig korrekte Funktion WURZEL hat dann 
folgendes Aussehen: 


DECLARE 
VAR Y VAR XALT VAR XNEU 
DEND 
PROGRAM WURZEL 
DUP 
D=.dr 
ELSE 
BUP Y 3= AXALT 3= 
REPEAT 
Y? XALT ? DIV 
XALT ? + 2 DIV XNEU := 
XALT ? XNEU ? = UNTIL 
XNEU ? XALT := 
LOOP 
XNEU ? 
THEN 


END 


Das führt zur allgemeinen Struktur von IF-ELSE-THEN Bedingungsan- 
weisungen. Insbesondere können diese Anweisungen dann geschach- 
telt auftreten, wenn mehr als eine Alternative zur Auswahl steht. 
Dies wird dann in der folgenden Form realisiert: 
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Bedingung! IF 
Anweisungsliste 
ELSE 
Bedingung2 Ik 
Anweisungsliste 
E ELSE 
Bedingung3 IF 
Anweisungsliste 
ELSE 
THEN 
THEN 
THEN 


Es muß hierbei darauf geachtet geachtet werden, daß jedes IF 
durch ein korrespondierendes THEN abgeschlossen wird. Als Bei- 
spiel betrachten wird das folgende Zahlenspiel, das von den 
verschachtelten Bedingungsanweisungen Gebrauch macht. 


Ein Zahlenspiel 


Dieses Spiel, daß auf einer Idee von Martin Gardner beruht, kann 
sich nicht auf bedeutende statistische oder andere mathematische 
Erkenntnisse berufen. Die Entscheidungen des Computers sind rein 
zufällig. Aber das gerade macht vielleicht den Reiz des Spieles 
aus. 


Das Programm 


Der Algorithmus ist so einfach, daß nach den bisherigen Kenntnis- 
sen der Programmiersprache RPNL dieses Programm auch ohne weitere 
Erklärungen verständlich ist. 


DECLARE 
STRING JA "IA! 
VAR DIFF VAR ANTWORT VAR SPIELER 
VAR COMP VAR ANZAHL VAR CZAHL 
VAR SZAHL 

DEND 


PROGRAM ERKLAERUNGEN 


ER ER 

WRITE ' WIR DENKEN UNS BEIDE EINE POSITIVE ZAHL AUS. ' 
WRITE ' DANN VERGLEICHEN WIR DIE BEIDEN ZAHLEN." CR 
WRITE ' WER DIE KLEINERE HAT, GEWINNT EINEN PUNKT." CR 
WRITE ' ALLERDINGS, WENN SIE GERADE UM 1 KLEINER IST,' 
WRITE 


' 

' 

’ 

’ 

' DANN BEKOMMT DER ANDERE 2 PUNKTE!' CR CR 

WRITE " EIN BEISPIELS’ CR * 

# 

' 

’ 

’ 


WRITE ' WENN IHRE ZAHL 15 UND MEINE 20 IST, DANN! CR 

WRITE ' BEKOMMEN SIE EINEN PUNKT.' CR 

WRITE ' ABER WENN SIE 15 UND ICH 16 HABE, DANN KRIEGE ICH' CR 
WRITE ' STOLZE 2 PUNKTE UND SIE --- LEIDER NICHTS!' CR ER 


50 


Die höhere Programmiersprache RPNL 


WRITE ' 
END 


PROGRAM INTEGER 
ER CR 
WRITE ' 
ER CR 
WRITE ' 
ANTWORT READ(S) 
ANTWORT ? JA? =(S) 
ERKLAERUNGEN 


ZAHLEN-SPIEL ' 


IF 


THEN 

0 SPIELER != 

REPEAT 
RND 5 MOD 
CR WRITE ' 
WRITE ' 
SZAHL READ 
WRITE ' 
CZAHL PRINT 
CZAHL ? SZAHL ? 
DIFF? 0= If 

WRITE ' 


0 COMP 


INC  CZAHL 
ICH HABE MEINE ZAHL ' 
WIE HEISST DENN IHRE ? ! 


DAS HABEN SIE DOCH AUCH VERSTANDEN ?' CR CR 


WOLLEN SIE ERKLAERUNGEN ? " 


Ve O ANZAHL := 


ER 


MEINE HEISST :' 
- DIFF = 
NA, DAS MUESSEN WIR' 


WRITE ' NOCH EINMAL VERSUCHEN' 


ANZAHL ? DEC ANZAHL := 
ELSE 
DIFF 2 69 E FF 
WRITE DAS SIND 2 PUNKTE FUER SIE!" 
SPIELER ? Z # SPIELER *= 
ELSE 
DIFF? 65535 & 
DIFF ®2 32767” > AND IF 
WRITE ' DAS IST 1' 
WRITE ' PUNKT FUER MICH' 
COMP ? INC EOMP ;:= 
ELSE 
BF 2 1 2 IE 
WRITE ' DAS IST 1" 
WRITE ' PUNKT FUER SIE! 
SPIELER © INC 
SPIELER ®= 
EIL.SE 
WRITE ' EU EU: EU" 
WRITE ' DAS SIND 2 PUNKTE" 
WRITE ' FUER MICH!IEN* 
EOM 7 2 + COM %e 
THEN 
THEN 
THEN 
THEN 
ANZAHL 2 INC ANZAHL := 
ANZAHL 2? 5 = If 
ER ER 
WRITE | DER SPIELSTAND IST JETZT" CR 
WRITE ' u 6. 
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WRITE ' ICH :' COMP PRINT CR 
WRITE ' SIE :' SPIELER PRINT CR 
WRITE ! Seszemsseesessemeoseeenm! CR 
WRITE ' WOLLEN SIE WEITERMACHEN ?  ' 
ANTWORT READ(S) 
0 ANZAHL := 
ELSE 
JA ? ANTWORT := 
THEN 
ANTWORT ? JA 2 =(S) NOT UNTIL 
LOOP 
ER CR 
COMPP_ ? SPIELER ? ? IF 
WRITE ' MACHEN SIE SICH NICHTS DRAUS' CR 
WRITE ' DAS NAECHSTE MAL HABEN SIE MEHR GLUECK!" 
CR 
ELSE 
WRITE ' FEIGLING! I!" CR 
WRITE ' AUFHOEREN, WENN SIE GERADE MAL NICHT' 
WRITE ' VERLIEREN; ' CR 
WRITE ' DAS IST TYPISCH." 
THEN 
CR CR 
END 
Ok! 
#INTEGER 
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ZAHLEN-SPIEL 


WOLLEN SIE ERKLAERUNGEN ? JA 

WIR DENKEN UNS BEIDE EINE POSITIVE ZAHL AUS. 
DANN VERGLEICHEN WIR DIE BEIDEN ZAHLEN. 

WER DIE KLEINERE HAT, GEWINNT EINEN PUNKT. 
ALLERDINGS, WENN SIE GERADE UM 1 KLEINER IST, 
DANN BEKOMMT DER ANDERE 2 PUNKTE! 


EIN BEISPIEL} 

WENN IHRE ZAHL 15 UND MEINE 20 IST, DANN 

BEKOMMEN SIE EINEN PUNKT. 

ABER WENN SIE 15 UND ICH 16 HABE, DANN KRIEGE ICH 
STOLZE 2 PUNKTE UND SIE --- LEIDER NICHTS! 


DAS HABEN SIE DOCH AUCH VERSTANDEN ? 
ICH HABE MEINE ZAHL 


WIE HEISST DENN IHRE ? 
MEINE HEISST 


PW 


EU EU EU! DAS SIND 2 PUNKTE 
FUER MICH! NE: 

ICH HABE MEINE ZAHL 

WIE HEISST DENN IHRE ? 4 


Ok! 
# 
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WIE HEISST DENN IHRE ? 3 
MEINE HEISST : 1 DAS IST 1 PUNKT FUER MICH 


DER SPIELSTAND IST JETZT 


WOLLEN SIE WEITERMACHEN ? IA 


ICH HABE MEINE ZAHL 
WIE HEISST DENN IHRE ? 4 
MEINE HEISST : 4 NA, DAS MUESSEN WIR NOCH 
EINMAL VERSUCHEN 
ICH HABE MEINE ZAHL 
WIE HEISST DENN IHRE 7 
MEINE HEISST 


> 
ur 


FUER MICH!!! 
ICH HABE MEINE ZAHL 


— 


WIE HEISST DENN IHRE ? 
MEINE HEISST : =) DAS IST 1 PUNKT FUER SIE 


DER SPIELSTAND IST JETZT 


WOLLEN SIE WEITERMACHEN ? JA 


ICH HABE MEINE ZAHL 
WIE HEISST DENN IHRE ? 5 

MEINE HEISST : il DAS IST 1 PUNKT FÜER MICH 
ICH HABE MEINE ZAHL 


..o0000 


DER SPIELSTAND IST JETZT 


WOLLEN SIE WEITERMACHEN ? NEIN 


MACHEN SIE SICH NICHTS DRAUS 
DAS NAECHSTE MAL HABEN SIE MEHR GLUECK! 


EU EU EU: DAS SIND 2 PUNKTE 
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REPEAT-UNTIL-LOOP 


Im Gegensatz zur Bedingungsanweisung wird bei den Wiederholungs- 
anweisungen der Wert einer Bedingung dazu benutzt, eine Liste von 
Anweisungen wiederholt ausführen zu lassen oder deren Ausführung 
abzubrechen. Diese Bedingung nennen wir das Abbruchkriterium. Die 
wiederholungsanweisungen werden auch als Schleifen bezeichnet. 
Ganz allgemein ist die Struktur einer solchen Anweisung folgen- 
dermaßen: 


SCHLEIFENANFANG 
ANWEISUNGSLISTE 1 
BEDINGUNG 
ANWEISUNGSLISTE 2 
SCHLEIFENENDE 


Diese Anweisung bewirkt folgendes: Beim ersten Eintritt in die 
Schleife wird die ANWEISUNGSLISTE 1 auf jeden Fall, d.h. unabhän- 
gig vom Wert der Bedingung ausgeführt. Anders bei der ANWEISUNGS- 
LISTE 2. Denn ist der Wert der BEDINGUNG "wahr", dann wird diese 
Liste nicht ausgeführt, sondern sofort zum SCHLEIFENENDE gesprun- 
gen. Im anderen Fall, also wenn die BEDINGUNG "falsch" war, wird 
auch die ANWEISUNGSLISTE 2 ausgeführt und wieder zum SCHLEIFENAN- 
FANG gesprungen. In dieser Allgemeinheit wird die Wiederholungs- 
anweisung von kaum einer Programmiersprache angeboten. In RPNL 
ist diese Schleife durch die REPEAT-UNTIL-LOOP realisiert. 


Hinter dem Schlüsselwort REPEAT folgt eine Anweisungsliste, die 
alle die Anweisungen enthält, die wiederholt werden sollen. Abge- 
schlossen wird die Schleife durch das Schlüsselwort LOOP. An 
einem geeigneten Punkt zwischen REPEAT und LOOP wird das Schlüs- 
selwort UNTIL geschoben, dem direkt ein Ausdruck (das ist die 
Bedingung) vorangeht. Abhängig vom aktuellen Wert des Ausdruckes 
erfolgt die Fortsetzung des Programmes mit der ersten Anweisung 
hinter UNTIL (wenn der Ausdruck den Wert FALSE hat) oder hinter 
dem Schlüsselwort LOOP (wenn der Ausdruck TRUE ergibt). 


Die REPEAT-UNTIL-LOOP erinnert sehr an die Wiederholungsschleife 
in PASCAL. Wird in RPNL das Schlüsselwort direkt vor dem LOOP 
plaziert (wenn also die zweite Anweisungsliste leer ist), dann 
hat sie exakt die gleiche Bedeutung. Auch die aus PASCAL bekannte 
WHILE-DO-Schleife läßt sich so simulieren. Nämlich dann, wenn das 
UNTIL direkt hinter dem REPEAT folgt (wenn die erste Anweisungs- 
liste leer ist). Allerdings muß dazu der Ausdruck vor dem UNTIL 
negiert werden (mit dem einstelligen Prädikat NOT). Um das wei- 
tere Verständnis zu erleichtern, soll zunächst ein einfaches 
Beispielprogramm eingestreut werden. 


Primzahlfaktorisierung 


Der Leser kann zur eigenen Übung am folgenden Beispiel selbst 
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herausfinden, wie die Struktur der beiden geschachtelten Schlei- 
fen aussieht. Insbesondere soll dargestellt werden, wo die o.a. 
Anweisungslisten beginnen bzw. enden. 


DECLARE 
VAR TEILER VAR ZAHL 
DEND 
PROGRAM PRIMZAHL 
2 TEUER :e 
WRITE ' Zahl ? v 
ZAHL READ 
WRITE ' Primfaktoren von ' 
ZAHL PRINT 
REPEAT 
TEILER? TELLER? * ZAHL? 3 UNTIL 
REPEAT 
ZAHL ? TEILER ? MOD O= UNTIL 
TELER? 2= T 
3: TEILER %e 
ELSE 
lERE T ZZ + EI => 
THEN 
LOOP 


ZAHL. ® TEILER 2% DIV ZAHL = 
ER TEILER PRINT 

LOOP 

ZEHET 198 IE 
ER ZAHL PRINT 


THEN 
END 
Ok! 
#PRIMZAHL 
Zahl ? 60060 
Primfaktoren von 60060 
2 
2 
3 
5 
7 
r 
je) 
#0k: 


Im Beispiel wurde die Möglichkeit, Schleifen zu verschachteln 
schon angewandt. Für den allgemeinen Fall soll deren Gestalt hier 
noch einmal skizziert werden: 


REPEAT 
ANWEISUNGSLISTE 1/1 
REPEAT 
ANWEISUNGSLISTE 2/1 
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BEDINGUNG UNTIL 
ANWEISUNGSLISTE 2/2 
LOOP 
ANWEISUNGSLISTE 1/2 
BEDINGUNG UNTIL 
ANWEISUNGSLISTE 1/3 
REPEAT 
ANWEISUNGSLISTE 3/1 
BEDINGUNG UNTIL 
ANWEISUNGSLISTE 3/2 
LOOP 
ANWEISUNGSLISTE 1/4 
LOOP 


Es muß noch daraufhingewiesen werden, daß sämtliche Anweisungsli- 
sten entweder leer sein oder aber auch weitere Schleifen enthal- 
ten können. 


FOR-LOOP 


Die REPEAT-UNTIL-LOOP wird meistens angewandt, wenn die Anzahl 
der Schleifendurchläufe vor Ausführungsbeginn nicht bekannt ist 
und von Berechnungen innerhalb der Schleife abhängig ist. Im 
Gegensatz dazu steht bei der FOR-LOOP die Iterationshäufigkeit 
vor dem ersten Durchlauf fest. 


Dem Schlüsselwort FOR gehen zwei Operanden (Laufvariablen) vo- 
raus, wovon der erste dem Endwert und der zweite dem Startwert 
entspricht. Zwischen dem FOR und dem begrenzenden Wort LOOP steht 
die Anweisungsliste, die genausooft ausgeführt wird, wie die 
Differenz von End- und Anfangswert angibt. Dabei ist zu beachten, 
daß für den Anfangs- und Endwert nur positive Werte und lediglich 
die Schrittweite 1 möglich sind. Verschachtelte FOR-LOOPs sind 
durchaus möglich. Ihre zulässige Tiefe ist implementationsbe- 
dingt. Auf den aktuellen Wert der Laufkonstanten kann durch die 
Standardkonstante I zugegriffen werden. 


Zusammenfassung: 


Das folgende Beispiel, das nahezu alle vorgestellten Sprachele- 
mente benutzt, soll als Zusammenfassung der Einführung in die 
Syntax der Sprache RPNL dienen. Vertiefend sollen anhand dieses 
Beispieles zwei Merkmale von RPNL herausgestellt werden: 


- die Unterstützung bei der Strukturierung von Program- 
men und . 
- die Datenmanipulation von Arrays. 
Skatendabrechnung 
Zur Aufgabenstellung sei nur kurz erwähnt, daß es sich um ein 


übliches Verfahren handelt, das Skat zu einem Vierpersonennull- 
summenspiel macht. Der Algorithmus ist der folgende: 
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Gewinn/Verlust von (A) := (A-B)+(A-C)+(A-D), 


wobei A...D die zu den Spielern (A)...(D) gehörigen Punktezahlen 
darstellen. Durch zyklische Vertauschung erhält man die Quoten 
für (B)...60). 


Liest man das eigentliche Hauptprogramm zuerst, das ist hier 
SKAT, so erkennt man den Aufbau des ganzen Programmes. Es besteht 
aus folgenden Teilen (Teilprogrammen), die aufgrund ihrer Namen 
die zugewiesene Aufgabe selbst erklären: 


EINGABE 
RECHNUNG 
SORTIERE 
AUSGABE . 


Die zur Berechnung und Dokumentation bei der Aufgabe notwendigen 
Daten werden jeweils in Arrays abgelegt. Diese werden in dem 
Teilprogramm EINGABE deklariert. Es sind dies einmal die Namen 
der Mitspieler aber auch deren Punkte. Zur Speicherung der Namen 
folgendes. In einem Element eines Array können maximal 16 Bit 
abgelegt werden; das reicht natürlich nicht für einen Namen oder 
allgemein für Text. Aber es reicht für eine Adresse. Also: in dem 
Array (hier NAMENSLISTE) werden die Adressen der Texte abgelegt. 
Dies geht so: 


Man vereinbart eine weitere Variable (sie ist nicht unbedingt 
erforderlich, veranschaulicht aber den Sachverhalt), hier ist es 
NAME, über die man die Namen einliest 


NAME READ(S) 


Damit wird der Text (also der Name) unter den Speicherstellen 
abgelegt, auf die der NAME zeigt. Mit anderen Worten kann man mit 
der Abfrage NAME ? diese Adresse verfügbar machen und einem 
Element eines Array zuweisen: 


NAME ? 1 2 * NAMENSLISTE + = 


Beim Einlesen des nächsten Namens wird NAME aktualisiert und 
zeigt auf dessen Speicherstellen. Das Teilprogramm RECHNUNG de- 
klariert ein weiteres Array (GELDLISTE), in dem die einzelnen 
errechneten Beträge vermerkt werden. Zur besseren Handhabung wird 
der vorne beschriebene Rechnungsmodus in folgende Form gebracht: 


GELDLISTE := A - B - CC - D' 


Die zyklische Vertauschung, die zur Berechnung der Beträge der 
anderen drei Spieler notwendig ist, wird durch einen Zähler (XJ) 
realisiert, der durch eine modulo-Division begrenzt ist. 


Nachdem die zustehenden Beträge errechnet sind, werden im Teil- 
programm SORTIERE der 1. bis 4. Sieger ermittelt. Dazu werden die 
Namen der Spieler mit den zugehörigen Daten geordnet; der zugrun- 
deliegende Schlüssel ist der Punktestand. Also, wer die meisten 
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Punkte hat, der kommt an die Spitze der Liste. Der verwendete 
Sortieralgorithmus ist äußerst einfach und bedarf keiner Erklä- 
rung. Dagegen soll an dieser Stelle auf die Ausführung des 
TAUSCHvorganges aufmerksam gemacht werden. Anschaulicher können 
Listenplätze kaum ausgetauscht werden. Die Teilaufgabe AUSGABE 
ist leicht zu überschauen. Es sei lediglich erwähnt, daß der 
Mangel an negativen Zahlen künstlich ausgeglichen wird, indem 
alle Zahlen größer 32768 als negative erklärt werden. 


Nachdem die Arrays in dem vorangegangenen Teilprogramm sortiert 
worden sind, können sie hier einfach der Reihe nach ausgedruckt 
werden. -Dadurch wird der erste Name zum ersten Sieger, der zweite 
zum zweiten u.S.w. 


DECLARE 
VAR NAME VAR HILF VAR PUNKTE 
VAR XJ VAR LISTE 
ARRAY NAMENSLISTE 4 
ARRAY PUNKTELISTE 4 
ARRAY GELDLISTE 4 


DEND 

PROGRAM SPACE 
WRITE ' 

END 

PROGRAM STERN 
SPACE 
45 1 FOR 

WRITE '+' 

LOOP 

END 

PROGRAM 21 
12% 

END 


PROGRAM  2Ir 
I IE 2 =& 


END 
PROGRAM EINGABE 
3 0 FÜR 
SPACE WRITE 'Wie heißt der' 


I INE RIFF se HILF PRINT 
WRITE '. Spieler ? 
NAME READ(S) ER 
NAME ? 2I NAMENSLISTE + = 
SPACE WRITE "Wieviele Punkte hat er ? J 
PUNKTE READ 
PUNKTE ? 2I PUNKTELISTE + := 
LOOP 
END 
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PROGRAM RECHNUNG 


0 N 

REPEAT j 
x 7 2 % PUNKTELISTE + 
3 * HUF := 
3 I FOR 


HILF REN ® + 
« Z * PUNKTELISTE + 


x ®° 2 * GELDLISTE # : 
x) ? IN X) := 
x © 4 = UNE 


LOOP 
END 
PROGRAM TAUSCH 
LISTE = 
21 LISIE 2 + 7? 
2I+ LISTE © + 2 
ZT LISIE © + = 
2I+ EISITE 2 + 38 
END 
PROGRAM SORTIERE 
2 © FOR 
= 0 EoR 
21  PUNKTELISTE + 
2I+ PUNKTELISTE + 
PUNKTELISTE 
NAMENSLISTE 
GELDLISTE 
LOOP 
LOOP 
END 
PROGRAM AUSGABE 
STERN 
3 9a FOR 
ER 


An INC HILF ‘= 
SPACE HILF PRINT 
WRITE "Sieger ist ' 


R 


4 MOD 
© = HIER se 


? 

2% IE 

TAUSCH 

TAUSCH 

TAUSCH 
THEN 


2I  NAMENSLISTE + PRINT(S) CR 


SPACE WRITE 'Er ' 
21 :GELBLISIE + 7 HILF 
HILF © 32768 > IF 


5 


ü HEF % - HILF ı= 
WRITE 'bezahlt ' 
ELSE 
WRITE "bekommt ' 
THEN 
HILF PRINT WRITE ' Taler’ 
ER 
LOOP 


RPNL 
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STERN 
END 
PROGRAM SKAT 
EINGABE 
RECHNUNG 
SORTIERE 
AUSGABE 
END 
ok! 
#SKAT 
wie heißt der 1. Spieler Berto 
Wieviele Punkte hat er ? 486 
wie heißt der 2. Spieler Charly 
wieviele Punkte hat er ? 1296 
wie heißt der 3. Spieler Alfred 
Wieviele Punkte hat er ? 123 
wie heißt der 4. Spieler Dominic 
Wieviele Punkte hat er ? 2097 


nn nn nn nn nn nn nn nn 
1.Sieger ist Dominic 
Er bekommt 4386 Taler 


2.Sieger ist Charly 
‘Er bekommt 1182 Taler 


3.Sieger ist Berto 
Er bezahlt 2058 Taler 


4.Sieger ist Alfred 
Er bezahlt 3510 Taler 


I a 2 


3.2.4 Die Diskettenbefehle 


Erst durch Einführung der Möglichkeit, Daten dauerhaft auf Dis- 
kette zu speichern, wird die Aufgabe durchführbar, auch große 
Datenmengen in sinnvoller Weise zu verarbeiten. Bei der Defini- 
tion der hierfür notwendigen Prozeduren wurde im wesentlichen auf 
zwei Kriterien geachtet. Einmal ist dies’die Beschränkung auf 
wenige und in der Anwendung einfache, aber leistungsstarke Befeh- 
le. Auf der andere Seite wurde im Hinblick auf die Verarbeitungs- 
geschwindigkeit ein Möglichstes getan. RPNL arbeitet mit zwei 
Dateitypen, die sich äußerlich durch den Zusatz im Dateinamen 
unterscheiden. Dies sind: j 


- Programmdateien, die Programmtexte enthalten und aus- 


schließlich mit der Prozedur COMPILE verarbeitet werden 
können. Sie enthalten den Namenszusatz .PRG. Dieser Datei- 
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typ muß, wenn er in Zusammenhang mit dem Schlüsselwort 
COMPILE genannt wird, nicht eigens deklariert werden. 


- Daten-und Textdateien. Sie tragen den Zusatz .RPN , was 
eine "verkürzte Abkürzung" für RPNL darstellen soll. Alle 
in RPNL-Programmen verwendeten Dateien gehören zu diesem 
Typ. Entsprechend müssen sie auch im Programm deklariert 
werden. 


Die Namenszusätze werden während der Benutzung des RPNL-Compilers 
nicht benötigt, d.h. sie entfallen bei der Nennung eines Namens. 
Dennoch sind die oben angeführten Konventionen einzuhalten. Im 
Zusammenhang mit der Namensgebung der Dateien ist noch folgendes 
zu beachten. Der erste Buchstabe eines Namens wird als Definition 
des Laufwerkes, auf dem die zugehörige Datei steht oder stehen 
soll, aufgefaßt. Dies bedeutet, daß für ein System mit zwei 
Laufwerken i.a. nur Namen in Frage kommen, die entweder mit A 
oder B beginnen, nämlich entsprechend der Laufwerksbezeichnung. 
Darüber hinaus gilt die Einschränkung, die durch das Betriebssys- 
tem vorgegeben ist, nämlich die maximale Länge eines Namens mit 8 
Zeichen (für CP/M und kompatible Systeme). 


Grundsätzlich findet der Datenaustausch bei selbstdefinierten 
Dateien über jeweils einen zu der Datei gehörigen DMA-Bereich 
statt. Bekanntlich können nicht einzelne Daten, sondern nur Da- 
tenblöcke (Records) übertragen werden. Als definierter Bereich 
wird dazu der angesprochene DMA-Bereich verwendet. Im allgemeinen 
ist dies der Adressbereich von 0080h bis OOFFH . Hier bei RPNL 
verwendet jede Datei ihren eigenen DMA-Bereich. Dessen Basisad- 
resse ist durch Aufruf des Dateinamens erreichbar. Sodann kann 
dieser Bereich mit Daten gefüllt und mit Hilfe der folgenden 
Befehle verarbeitet werden. 


COMPILE XNAME 


Dieser Befehl setzt eine Datei XNAME.PRG auf dem Laufwerk 
X voraus. 


Beispiel: 
COMPILE BSORT 


sucht eine Datei mit dem Eintrag BSORT.PRG auf dem Lauf- 
werk B. Die zu dem Eintrag XNAME gehörigen Daten werden 
als Programmtext aufgefaßt. Sie werden von der Diskette 
eingelesen und gleichzeitig compiliert. Erstellt wurden 
diese Programme vorher mit einem Texteditor (WORDSTAR, 
EDDI-80 0.ä.). Genauso sind auch Änderungen an diesen 
Programmtexten mit einem solchen Editor vorzunehmen. Ein 
erfolgreicher Übersetzungsversuch wird mit der Meldung 


*%**CODE GENERATED*** 


belohnt. Anschließend kann das compilierte Programm mit 
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seinem Programmnamen (das ist der hinter dem Schlüssel- 
wort PROGRAM) aufgerufen werden. Entdeckt der Compiler 
einen Fehler, so wird der Übersetzungsvorgang abgebro- 
chen, die Meldung 


*%**ND CODE GENERATED*** 


ausgegeben und alle Systemvariablen auf Anfangswerte 
gesetzt. Im Normalfall wird man anschließend den Compiler 
mit SYSTEM verlassen, mit dem Editor den Fehler korrigie- 
ren und nach dem Starten von RPNL einen erneuten Überset- 
zungsversuch wagen. 


VARF  XNAME 


wie alle Namen, die in RPNL als Datenträger fungieren, 
sind auch Dateinamen dem Compiler durch eine Deklaration 
mitzuteilen. Dies geschieht durch das Schlüsselwort VARF 
gefolgt von dem einzuführenden Namen. Bei der Deklaration 
geschieht folgendes: 

- der XNAME wird in die Namensliste eingetragen, 

- es wird ein eigener DMA-Bereich mit 80H Länge 

angelegt, 

- mit dem XNAME wird ein FCB eingerichtet. 
wird nach der Deklaration der XNAME in einem Programm 
genannt, so wird ein Zeiger auf den Anfang bzw das erste 
Byte des DMA-Bereiches erzeugt. Wird die Datei zur Spei- 
cherung von Zahlen benutzt, so wird der DMA-Bereich in 
geeigneter Weise als Array mit der Länge 80H genutzt. 


XNAME OPEN 


Diese Prozedur schafft die notwendigen Voraussetzungen 
für jegliche Arbeit mit Dateien, die auf Diskette gespei- 
chert sind. So ist vor jedem ersten Schreib- oder Lesezu- 
griff für die Datei XNAME die Prozedur OPEN aufzurufen. 
Damit wird dem System Gelegenheit gegeben, notwendige 
Eintragungen in dem FCB vorzunehmen. 


XNAME CLOSE 


Diese Prozedur, die direkt mit OPEN korrespondiert, ist 
nur nach Schreibzugriffen notwendig. Alle Daten, die in 
die Datei XNAME geschrieben wurden, sind erst nach dem 
Aufruf dieser Prozedur dauerhaft gespeichert. Also ist 
für alle betroffenen Dateien einzelnen nach dem letzten 
Schreibzugriff die Durchführung dieser Prozedur obligato- 
risch, Nach Lesezugriffen muß CLOSE nicht aufgerufen 
werden. 
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XNAME READF param 


Diese Prozedur liest ein Record der benannten Datei XNAME 
und schreibt diese 80H Byte in den zugehörigen DMA- 
Bereich. Anschließend ist auf dem Stack ein boolscher 
Parameter (param) verfügbar, der angibt, ob die letzte 
Leseoperation erfolgreich war. Oder ob versucht wurde, 
eine unbeschriebene Datei zu lesen. Letzteres trifft im 
allgemeinen dann zu, wenn die Datei zu Ende war. In 
diesem Falle sind auch die Daten im DMA-Bereich nicht 
gültig. Also bei einem TRUE auf dem Stack war das Lesen 
erfolgreich und bei einem FALSE eben nicht. Damit ist die 
Möglichkeit gegeben, Dateien sequentiell in einer REPEAT- 
Schleife einzulesen, wobei der durch die Prozedur READF 
übergebene Parameter das Abbruchkriterium darstellt. 


XNAME PRINTF 


Wurde eine Textdatei mit der Prozedur READF eingelesen 
und damit die zugehörigen Daten in dem DMA-Bereich abge- 
legt, so können mit der Prozedur PRINTF diese Zeichen als 
ASCII-Zeichen interpretiert auf dem Ausgabemedium (Bild- 
schirm und/oder Drucker) ausgegeben werden. Dabei werden 
immer der gesamte DMA-Bereich, also 80H Zeichen als eine 
Einheit betrachtet und geschlossen dargestellt. FÜr Da- 
teien, in denen Zahlen gespeichert wurden, ist diese 
Prozedur nicht geeignet. FÜr diesen Fall muß eine Benut- 
zerroutine geschrieben werden, die den DMA-Bereich als 
ein Array verwendet und der benutzten Datenstruktur ent- 
sprechend die Werte einzeln ausgibt. 


NAME XNAME TREADF parami param2 


Wenn mit der Prozedur READF eine Textdatei eingelesen 
wurde, so stehen davon jeweils 80H Zeichen in dem zugehö- 
rigen DMA -Bereich. Damit ist der Text zwar eingelesen, 
aber für den Compiler bzw den Benutzer noch nicht verfüg- 
bar. Deshalb wird durch Aufruf der Prozedur TREADF je- 
weils ein Datensatz vom DMA-Bereich in den Text-bzw. 
Variablenber®eich des Tompilers gebracht. Dabei ist ein 
Datensatz genau die Folge von Zeichen, die bei dem Zei- 
chen beginnt, das gerade nicht zum vorher übertragenen 
Satz gehörte, und mit der Folge ODH OAH endet. Genau mit 
dieser Folge wird auch die Prozedur verlassen. Dann sind 
vier Aktionen durchgeführt: 


(D) der aktuelle Datensatz wurde in den 
Variablenbereich des Compilers übertragen, 


(2) die Adresse dieses Satzes im Variablenbereich 
wurde der Variablen NAME zugewiesen und gamit für 
den Compiler verfügbar gemacht (die Variable NAME 
muß natürlich vorher deklariert worden sein), 
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XNAME 
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(3) ein Zeiger im DMA-Bereich von XNAME wurde 
aktualisiertt und zeigt auf den nächsten 
Datensatz, 


(4) zwei Parameter wurden auf den Stack gelegt, 
die u.a. anzeigen, ob das Ende der Datei XNAME 
erreicht ist; dabei bedeuten: 


paramı param2 Erklärung 


FALSE FALSE Die Datei XNAME ist zu Ende, das 


Zeichen 1AH wurde erkannt. 


FALSE TRUE Der aktuelle DMA-Bereich wurde 


vollständige gelesen und endete mit 
einem Satzende. 


TRUE TRUE Der aktuelle DMA-Bereich wurde noch 


nicht vollständig gelesen, aber das 
Ende eines Datensatzes ist er- 
reicht. 


TRUE FALSE Der aktuelle DMA-Bereich wurde 


vollständig gelesen, aber fällt 
nicht mit dem Ende eines Datensat- 
zes zusammen. Dies bedeutet, daß 
nach Erkennen des nächsten Satzen- 
des im neuen DMA-Bereich die Teil- 
strings aus dem letzten und dem 
aktuellen Teilstring verschmolzen 
werden müssen. 


WRITEF 


Mit dieser Prozedur wird der gesamte zu XNAME gehörige 
DMA-Bereich auf Diskette geschrieben. Wurden in diesen 
Bereich Zahlen oder allgemein Daten, aber kein mit 
TWRITEF deklarierter Text geschrieben, so ist dieser 
Aufruf immer gerade dann notwendig, wenn die eingetrage- 
nen Daten gespeichert werden sollen. Mit anderen Worten 
muß das Benutzerprogramm dafür sorgen, daß zum richtigen 
Zeitpunkt die Prozedur WRITEF gerufen wird. Im Gegensatz 
dazu wird beim Abspeichern von Text die Prozedur im 
Bedarfsfalle automatisch gerufen. Aber nur für die Datei, 
die vorher mit TWRITEF initialisiert wurde. In diesem 
Falle wird immer dann, wenn genaü 80H Zeichen in den 
zugehörigen DMA-Bereich eingetragen wurden, die Prozedur 
WRITEF aufgerufen. Dies bedeutet aber auch, daß zum Ab- 
schluß jedes Schreibens einmal WRITEF mehr aufzurufen 
ist, da ja nicht sichergestellt sein kann, daß vorher 
genau mit einem vollen DMA-Bereich abgeschlossen wurde. 
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XNAME TWRITEF 


TEND 


Diese Prozedur hat gewissermaßen eine Schalterfunktion. 
Denn nach deren Aufruf werden alle Zeichen, die auf dem 
Bildschirm (und/oder Drucker) erscheinen, also von der 
Tastatur, der Diskette oder andere Programm-Outputs, 
fortlaufend in den zu XNAME gehörenden DMA-Bereich ge- 
schrieben und gespeichert. Damit können auf einfache Art 
und Weise Textdateien erzeugt werden. Es kann gleichzei- 
tig immer nur eine Datei mit dieser Funktion eingeschal- 
tet werden. 


Diese Prozedur schaltet die mit TWRITEF initiierte Funk- 
tion wieder aus. Das bedeutet, daß alle Zeichen, die 
jetzt auf dem Bildschirm (und/oder Drucker) erscheinen, 
in keinen DMA-Bereich mehr kopiert werden. 


XNAME DELETE 


SCROFF 


SCRON 


NOFILES 


Die Datei mit dem Namen XNAME.RPN wird aus dem Directory 
der Diskette im Laufwerk X gestrichen und ist somit nicht 
mehr verfügbar, d.h. auch alle zugehörigen Informationen 
sind nicht mehr erreichbar. Durch einen anschließenden 
Aufruf der Prozedur OPEN mit dem gleichen Dateinamen 
erfolgt wieder ein Eintrag auf der Diskette und eine 
leere Datei ist neu geschaffen. 


Diese Prozedur schaltet den Bildschirm aus. Allerdings 
nur insofern, als zwar alle Zeichen weiterhin über die 
entsprechende Ausgaberoutine laufen, also die Prozedur 
PRINTF in Verbindung mit TWRITEF weiterhin in Funktion 
bleiben, aber die Anzeige unterdrückt wird. 


Diese Prozedur hebt SCROFF wieder auf und schaltet den 
Bildschirm wieder ein. 


Diese Aktion schaltet einige der Diskettenbefehle aus. 
Dadurch werden ablauffähige Programme, die durch die 
Aktion SAVE NAME erzeugt wurden, kürzer. 


Folgende Befehle können nicht mehr ausgeführt werden: 
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FILES CHGDRIVE DATEINAME READF OPEN CLOSE DELETE 
WRITEF  PRINTF  TWRITEF TREADF TEND ACTDRV 


NOFILES 
ACTDRV 
Diese Variable enthält gemäß CP/M Standard die Nummer des 
aktuellen Laufwerkes. Da die Variable nur 1 Byte groß 
ist, kann sie nur mit den Befehlen :=(B) gesetzt bzw. 
?(B) abgefragt werden. 
CHGDRIVE 


Wenn Sie eine Datei bearbeiten wollen, die sich auf einer 
Diskette in einem anderen als dem aktuellen Laufwerk 
befindet, so geben Sie diesen Befehl. Es ensteht folgen- 
der Dialog: 


Aktuelles Laufwerk: A 
Gewünschtes Laufwerk: X 


Wobei natürlich X Ihrer Eingabe entspricht. 


NAME DATEINAME 


Wenn NAME ein mit VARF deklarierter Dateiname ist, so 
haben Sie mit diesem Aufruf die Möglichkeit, in den 
zugehörigen FCB einen den CP/M Konventionen entsprechen- 
den Namen einzutragen. Dabei muß nach dem Punkt ein 
Extension mit drei druckbaren Zeichen folgen. Mit der 
Eingabe des dritten Zeichens nach dem Punkt wird die 
Eingabe als beendet betrachtet. Mit BACKSPACE können 
Änderungen an dem Namen angebracht werden. Durch Eingabe 
von ESCAPE wird der gesamte Name im FCB wieder gelöscht. 


3.2.5 Anwendung der Diskettenbefehle 


In diesem Abschnitt soll an einigen kurzen Beispielen die Anwen- 
dung der Diskettenbefehle gezeigt werden. Damit können mögliche 
Fragen, die nach dem Studium des Kapitels 3 noch offen geblieben 
sind, geklärt werden, 


3.2.5.1 Erstes Beispiel (EINLESEN} 


In diesem Programn wird eine bereits erstellte Textdatei 
ASORT.RPN, die sich auf dem Laufwerk A befinden muß, eingelesen 
und gleichzeitig auf dem Bildschirm wieder ausgegeben. Dabei wird 
eine Wiederholungsschleife benutzt, die solange Datenblöcke ein- 
liest, wie READF als Parameter TRUE übergibt. Es soll noch einmal 
darauf hingewiesen werden, daß die Reihenfolge der folgenden 
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Prozeduren obligatorisch ist: 


VARF  ASORT - Deklaration 

ASORT OPEN - Öffnen der Datei 
ASORT READF - Lesen der Datei 
ASORT PRINTF - Ausgeben der Datei 


Ein Aufruf der Prozedur CLOSE ist nicht notwendig, da kein 
Schreibzugriff auf die Datei erfolgte. 


DECLARE 
VARF ASORT 
DEND 


PROGRAM EINLESEN 
ASORT OPEN 
REPEAT 
ASORT READF 
NOT UNTIL 
ASORT PRINTF 
LOOP 
END 


3.2.5.2 Zweites Beispiel (KOPIERE) 


Das zweite Beispiel geht insofern über das erste hinaus, als 
während der Ausgabe der Datei alle Zeichen, die auf dem Bild- 
schirm erscheinen, sofort wieder in eine Datei ASORTNEW geschrie- 
ben werden. Dies ist dadurch möglich, weil ASORTNEW durch TWRITEF 
als Textfile initialisiert wurde. Es wurde bereits darauf hinge- 
wiesen, daß immer dann, wenn gerade 128 Zeichen auf den Bild- 
schirm geschrieben wurden, diese auf Diskette gerettet werden. Da 
aber im allgemeinen Fall nicht dann endet, wenn eben gerade 128 
Zeichen ausgegeben wurden, ist dafür ein abschließendes WRITEF 
notwendig. 


DECLARE 
VARF ASORT VARF ASORTNEW 
DEND 
PROGRAM KOPIERE 
ASORT OPEN ASORTNEW OPEN 
ASORTNEW TWRITEF 
REPEAT 


ASORT READF NOT UNTIL 
ASORT PRINTF 
LOOP 
TEND 
ASORTNEW WRITEF 
ASORTNEW CLOSE 
END 


67 


Die höhere Programmiersprache RPNL 


PROGRAM LIES 
ASORTNEW OPEN 
REPEAT 
ASORTNEW READF NOT UNTIL 
ASORTNEW PRINTF 
LOOP j 
END 


3.2.5.3 Drittes Beispiel (DATEN) 


Wurden in den ersten Beispielen die Dateien zur Speicherung von 
Text benutzt, so werden hier nicht druckbare Zeichen, nämlich 
Zahlen, gespeichert und anschließend wieder ausgegeben. Dazu wird 
der DMA-Bereich als Array benutzt, in den die Daten geschrieben 
werden. Nach Beendigung der Eingabe werden sie auf die Diskette 
gespeichert. 


DECLARE 
VARF ADATENI VARF ADATEN2 
VAR ZAHL VAR ZAEHLER 
DEND 


PROGRAM EINGABE 
ADATEN1 OPEN 


WRITE "WIEVIELE ZAHLEN ? ZAEHLER READ 
ZAEHLER ? 1 FOR 
WRITE "ZAHL ? ! ZAHL READ 


ZAHL 2? ADATENI I 2% + 38 
LOOP 
ZAEHLER ?  ADATENI ’= 
ADATEN1 WRITER 
ADATENI CLOSE 
END 


PROGRAM LESEN] 
ADATEN1 OPEN ADATEN2 OPEN 
ADATEN 1 ®* ZACHLER = 
ZAEHLER ? 1 FOR 


ADATEN1 I2%*% + 2 ZAHL = 
ZAHL PRINT 
I 5 MOB MB= „IE 
CR 
THEN 
ZAHL 2? ADATEN I 2% + := 
LOOP * 


ZAEHLER ? ACHTEN2 = 
ADATEN2 WRITER 
ADATEN2 CLOSE 

END 


PROGRAM LESEN2 
ADATEN2 OPEN 
REPEAT 
ADATEN2 READF NOT UNTIL 


68 


Die höhere Programmiersprache RPNL 


ADATEN2 ?  ZAEHLER = 
ZAEHLER 7? 1 FOR 
ADATEND I2* + ? ZAHL Im 


ZAHL PRINT 
T 5 Mob Ö0= Ir 
CR 
THEN 
. LOOP 
LODP 
END 
PROGRAM DATEN 
WRITE ' Eingeben EINGABE ' ER 
WRITE ' Retten LESEN ” CR 
WRITE ' Lesen LESEN! ® ER 


END 


3.2.5.4 Viertes Beispiel (NAMEN) 


Dieses letzte Beispiel soll noch einmal in einem etwas größeren 
Zusammenhang die Einsatzmöglichkeit von Textdateien zeigen. Das 
Programm erstellt eine alphabetisch sortierte Liste von eingege- 
benen Namen. Diese Liste wird nach der letzten Eingabe ausgegeben 
und gleichzeitig in der Datei ALISTE gespeichert. Zu Beginn der 
nächsten Eingabe wird sie eingelesen, die Zeiger auf jeden Namen 
neu erzeugt und in dem Array NAMENSLISTE abgelegt. Wie das funk- 
tioniert, wurde bereits in dem Beispiel "Skatendabrechnung" er- 
klärt. während des Einlesens wird der Bildschirm mit SCROFF 
ausgeschaltet. Wenn zum Abschluß die sortierte Liste ausgegeben 
wird, wird zusätzlich zu jedem Namen eine laufende Nummer er- 
zeugt. Damit diese nicht mit in ALISTE abgespeichert wird, ist 
die Placierung von TWRITEF und TEND sorgfältig vorzunehmen. Im 
übrigen ist das verwendete Sortierverfahren eines der schlechtes- 
ten überhaupt. Aber man kann ja nicht immer nur QUICKSORT nehmen. 


DECLARE 
ARRAY NAMENSLISTE 50 VARF ALISTE 
VAR NAME VAR ANZAHL 
VAR PARAM1 VAR PARAM2 
VAR ALT VAR VERSCHMELZEN 
VAR HILF 


STRING BLANK 
STRING ENDE 
DEND 


PROGRAM INDEX 
12 
END 


PROGRAM EINLESEN 


u % 


'0000' 


* + 


FALSE VERSCHMELZEN := 


ALISTE OPEN 
TRUE PARAM1 


!= TRUE PARAM2 := 
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END 


REPEAT 
ALISTE 


PROGRAM NAMEN 
BLANK ? NAMENSLISTE := 
1 ANZAHL := 


SCROFF 


READF NOT 
PARAM1 ? PARAM2 ? OR NOT 
OR UNTIL 
REPEAT 
NAME ALISTE TREADF PARAMI := 
PARAM1 ? PARAM2 ? AND NOT UNTIL 
VERSCHMELZEN ? NOT IF 
NAME 7? NAMENSL.ISTE 


ANZAHL ? 2 * +: 


NAME ? ALT := 
ANZAHL ? INC ANZAHL := 
ELSE 
ALT ? NAME ? +(S) NAME 
NAME ? NAMENSLISTE 
ANZAHL ? 2% + 
THEN 
LOOP 
PARAM1 ? PARAM2 ? NOT AND VERSCHMELZEN 
LOOP 


EINLESEN 


SCRON 


REPEAT 


NAME ? 


CR 

WRITE * 
LISTE 
ANZAHL 


***SORTIEREN EINER NAMENSLISTE***' 


Beenden der Eingabe durch 0000' 


CR WRITE ' Name: ü 
NAME READ(S) 
ENDE ? =(S) UNTIL 
ANZAHL ? DEC O0 FOR 
NAMENSLISTE INDEX ? 
NAME ? $=(5) IF 
NAME ? 
NAMENSLISTE INDEX ? 
NAME = 
NAMENSLISTE INDEX := 
THEN 
LLOOP 
NAME ? NAMENSLISTE ANZAHL ? 2 * + = 
ANZAHL ? INC ANZAHL = 
LOOP 


Geordnete Liste ' CR CR 
DELETE ALISTE OPEN 
® DEC T FOR 
I HILF &= HALF PRINT WRITE ' r 
ALISTE TWRITEF 
NAMENSLISTE INDEX PRINT(S) CR 


PARAM2 
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TEND 
LOOP 
ALISTE WRITEF  ALISTE CLOSE 


3.3 Funktionen und Prozeduren in RPNL 


Die gesamte Sprache RPNL ist aufgebaut aus Unterprogrammaufrufen 
oder Funktions-oder Prozedurnamen, so daß es kein eigenes Schlüs- 
selwort (wie CALL oder GOSUB) für diesen Zweck gibt. Ser im 
Abschnitt 3.1.3 wurde daraufhingewiesen, daß WRITE oder ;'RINT, 
aber auch INC oder beispielsweise + (für die Addition) Standard- 
namen sind. Mit anderen Worten sind dies Prozeduren und Funktio- 
nen, also Unterprogramme, die, weil sie häufig und immer wieder 
benötigt werden, schon vorformuliert und mit einem Standardnamen 
belegt sind. 


Zunächst aber soll in Stichworten der Unterschied zwischen Funk- 
tionen und Prozedurer: erklärt werden. Also, Funktionen sind Vor- 
schriften, die einem oder mehreren Argumenten höchstens einen 
Wert zuordnen. So ordnet die Quadratfunktion einer reellen Zahl X 
ihr Quadrat, nämlich X**2 zu. Formal sieht das in Infix-Notation 
so aus 


WERT 3= Xe2, 


Im Gegensatz dazu sind Prozeduren selbständige Programme und 
nicht Bestandteile eines Ausdruckes wie Funktionen. Wie aber 
werden eigene Funktionen und Prozeduren in RPNL formuliert und 
aufgerufen ? Diese Frage soll hier nicht abschließend behandelt 
angeschnitten werden, Details werden in dem folgenden Kapitel 
vermittelt. 


Funktionen und Prozeduren sind formal aufgebaut wie Hauptprogram- 
me. Deshalb gilt das Syntaxdiagramm auch in vollem Umfang für 
Funktionen und Prozeduren. Also sieht ihr Aufbau allgemein so 
aus: 


PROGRAM NAME 
ANWEISUNGSLISTE 

END 
Doch nun zum Aufruf. Wird in dem aufrufenden Programm der Name 
eines anderen Programms (Funktion oder Prozedur) genannt, so wird 
zunächst dieses aufgerufene Programm abgearbeitet. Danach erfolgt 
die Programmfortsetzung mit der Anweisung hinter dem Aufruf. 
Insbesondere bedarf die Übergabe der Parametern einiger Erläute- 
rungen. Wie bei einer Sprache, die die UPN benutzt, zu erwarten 


ist, werden zunächst die aktuellen Parameter genannt und dann der 
Name der zugehörigen Funktion oder Prozedur. Hierzu ein Beispiel. 
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Es sei eine Prozedur in PASCAL definiert mit dem Namen AUFRUF, 
die 2 Parameter (der Datentyp ist hierbei nebensächlich) erwar- 
tet. Der Aufruf lautet: 


AUFRUF (PARA1,PARA2: INTEGER); 


also ähnlich wie bei anderen Programmiersprachen. Und nun zu 
RPNL. Hier lautet der entsprechende Aufruf: 


PARA2 ? PARA1 ? AUFRUF 


An dieser Stelle bietet es sich an, genauer darauf einzugehen, 
wie letztlich die Parameterübergabe bei den Aufrufen von statten 
geht. wir wollen dies an einigen Beispielen demonstrieren. Zu- 
nächst werden wir eine Funktion schreiben. Dazu wir greifen das 
obige Beispiel der Quadratzahlen auf. Im vorliegenden Fall soll 
das ARGUMENT quadriert, verdoppelt und anschließend einer Variab- 
len WERT zugewiesen werden. 


DECLARE 
VAR ARGUMENT VAR WERT 
DEND 


PROGRAM 2QUADRATFUNKT ION 
DIR 2% 
END 


PROGRAM HAUPT 
ARGUMENT READ CR CR 
ARGUMENT ? 2QUADRATFUNKTION WERT := 
WERT PRINT 

END 


Charakteristisch ist, daß der errechnete Funktionswert einer 
Variablen zugewiesen wird. Die Übergabe des Argumentes bzw des 
Funktionswertes geschieht immer über den Stack. So wird mit 


ARGUMENT ? 


der eingelesene Wert für ARGUMENT auf den Stack gelegt und dann 
innerhalb der Abarbeitung der Funktion dort weggenommen, entspre- 
chend der Funktionsvorschrift manipuliert und anschließend dort 
wieder für die Übergabe abgelegt. Genauso läuft die Parameter- 
übergabe bei Prozeduren. Hier ein Beispiel. 


DECLARE , 
VAR ARGUMENT 
DEND 


PROGRAM STERNPROZEDUR 
O0 FOR 
WRITE '*' 
LOOP 
END 
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PROGRAM HAUPTZ 
ARGUMENT READ CR CR 
ARGUMENT ? STERNPROZEDUR 
END 


Wie bereits angedeutet, besteht der Unterschied zur Funktion 
darin, daß kein Funktionswert berechnet und einer Variablen zuge- 
wiesen wird. - 


Zum Abschluß noch eine weitere Besonderheit. Das Unterprogramm 
(Funktion oder Prozedur) ist im Gegensatz zu anderen Programmier- 
sprachen nicht Bestandteil des aufrufenden Programms. Es muß dem 
Syntaxdiagramn entsprechend als eigenständiges (vollständiges) 
Programm dem aufrufenden Programm vorangestellt werden. Auf unser 
erstes Beispiel bezogen sähe das so aus: 


PROGRAM AUFRUF 


END 


PROGRAM HAUPT 
PARA2 ? PARA1 ? AUFRUF 


END 


3.4 Rekursionen in RPNL 


Algorithmen, die die wiederholte Ausführung einer Aktion verlan- 
gen, werden meist mithilfe der Wiederholungsanweisungen reali- 
siert. Oftmals liegt aber der Funktion oder Prozedur eine Defini- 
tion zugrunde, die eine rekursive Lösung nahelegt oder gar ver- 
langt. 


Zunächst, was ist rekursiv? Rekursiv bedeutet, daß das Programm 
auf sich selbst zurückgreift. Mit anderen Worten soll ein Pro- 
gramm wiederum das gleiche Programm aufrufen. Wie das möglich 
ist, wollen wir uns überlegen. Programme mit einer rekursiven 
Lösung des Problems haben eine typische Struktur. Sie lösen das 
Problem durch Lösen mehrerer kleiner Teilprobleme, die sich letz- 
tenendes alle auf ein oder wenige Anfangsprobleme zurückführen 
lassen. Die Ergebnisse zu diesen Anfangsproblemen sind explizit 
angeggeben. Das Programm setzt dann anschließend alle Teillösun- 
gen zu einer Gesamtlösung zusammen. Das führt uns zu der allge- 
meinen Formulierung von rekursiven Algorithmen: 
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PROGRAM REKURSIV 
ANWEISUNGSLISTE 1 
BEDINGUNG IF 
LÖSUNG DES ANFANGSPROBLEMS 
ELSE 
ANWEISUNGSLISTE2 
REKURSIV 
ANWEISUNGSLISTE3 
THEN 
END 


In der ‚Anweisungsliste 2 werden die Argumente für den nächsten 
Aufruf modifiziert und in der Liste 3 dann die Teillösungen 
zusammengesetzt. Es ist oft so, daß eine oder zwei dieser Anwei- 
sungsfolgen leer sind. Das hängt natürlich individuell von der 
Struktur des Problems ab. Offensichtlich aber kommt der Bedin- 
gung, die zur Lösung des Anfangsproblems führt, eine besondere 
Bedeutung zu. Denn sie stellt den Rekursionsanfang dar und legt 
damit die Rekursionstiefe fest. Es muß mit der Anweisungsliste 2 
dafür gesorgt werden, daß zum richtigen Zeitpunkt die Bedingung 
erfüllt wird. Ein einfaches Programmbeispiel soll diesen Sachver- 
halt verdeutlichen. 


DECLARE 
VAR ZAHL 
DEND 


PROGRAM MINUS] 
WRITE 'Zahl : ' ZAHL PRINT ER 
DEC ZAHL := 
ZAHL 2? O <> IF 
ZAHL ? MINUS1 
THEN 
END 


PROGRAM HAUPT 
WRITE 'Zahl ? ' 
ZAHL READ 
ZAHL ? MINUS1 
END 


Ruft man HAUPT mit dem Argument 5 auf, so erzeugt die Prozedur 
MINUS1 den folgenden Ausdruck: 


Zahl : 
Zahl : 
Zahl : 
Zahl : 
Zahl : 


-NDuru 


Man kann daraus erkennen, mit welchen Argumentwerten MINUS! auf- 
gerufen wird bzw. sich selbst aufruft. Offensichtlich ist das 
Abbruchkriterium dann erfüllt, wenn ZAHL gleich Null ist. Ein 
weiteres nicht ganz so triviales Beispiel berechnet Fibonacci- 
Zahlen. Diese Folge ist definiert: 
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f(1) 
f(2) 
f{n) (n-1)+f(n-2) 

Offensichtlich entsteht der aktuelle Wert aus der Summe seiner 
beiden Vorgänger. Nachfolgend ist das zugehörige Programm mit dem 
Output für das Argument 24 aufgelistet. Wir wollen anschließend 
überlegen, wie die Verarbeitung also die einzelnen Aufrufe und 
die Zusammensetzung der Teillösungen realisiert sind. 


DECLARE 
VAR ARGUMENT VAR FIBONEU 
VAR FIBOALT VAR ZAEHLER 
STRING SPACE ' r 
DEND 


PROGRAM FIBO 
DUP ARGUMENT := 
1= TI 
1 FIBONEU! *= 
CR SPACE PRINT(S) 
FIBONEU PRINT 2 ZAEHLER := 


ELSE 
ARGUMENT ? DEC 
FIBO 
FIBONEU ? FIBOALT ? + FIBONEU := 
FIBONEU ? FIBOALT ? 
FIBONEU := FIBOALT := 
FIBONEU PRINT 
ZAEHLER ? 5 MOD O= IF 

CR SPACE PRINT(S) 

THEN 
ZAEHLER ? INC ZAEHLER := 

THEN 


END 


PROGRAM FIB 
ARGUMENT READ 
1 FIBOALT := 
ARGUMENT ? DEC FIBO 
FIBOALT PRINT 


END 
Ok! 
#FIB 
24 
1 1 2 3 5 
8 1) 21 34 55 
89° 144 233 377 610 
987 1597 2584 4181 6765 
10946 17711 28657 46368 
Ok! 
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wie schon angedeutet skizzieren wir nun, welche Aktionen beim 
Aufruf mit dem Argument 5 in zeitlicher Abfolge ablaufen. Dazu 
stellen wir die Prozedur FIBO als Block dar mit den jeweils 
aktuellen Werten der einzelnen Variablen. 


ee en I 
I ARGUMENT: 4 I 
1 0  FIBOALT : 1 I 
I FIBONEU : / I 
Dr UEAREE I al 
I I 
ee ee nn ee I 
I I ARGUMENT: 3 I 
I I 1 FIBOALT : 1 I 
I 1 FIBONEU : / I 
I ae een er ee “7 
I 1 1 
I u 99323 EEeSEREE RE RIES EERRE A EERIBIEEE SE 1 
I I I ARGUMENT: 2 1 
I I I 2 FIBOALT : 1 1 
I I I FIBONEU : / 1 
I I VE NESUEE SEES RERERN: I 
I I N I 
I I ee een ep ee. I 
n I I I ARGUMENT: 1 I 
I I I I 3 FIBOALT: 11 
I I I 1 FIBONEU : 1 

I I a N I 
I I T FIBONEU: 2 ; ADDITION I 
i I I FIBONEU: 1 5; UM- T 
I I I FIBOALT: 2 ; SPEICHERUNG I 
I ME een ee de en I 
I I FIBONEU: 3 ; ADDITION I 
I I FIBONEU: 2 ; UM- I 
I I FIBOALT: 3 ; SPEICHERUNG 1 
Do... Besseren I 
I FIBONEU: 5 ; ADDITION I 
I FIBONEU: 3 ; UM- I 
I FIBOALT: 5 ; SPEICHERUNG T 
I I 
ee I 
I I 
I FIBOALT: 5 ; AUSGABE IM HAUPTPROGRAMM I 
I I 
a I 


(Die Werte, die ausgegeben werden, sind unterstrichen) 


Offensichtlich ist die größte Rekursionstiefe dann erreicht, wenn 
die Variable ARGUMENT den Wert Nl1 angenommen hat. Dann nämlich 
wird FIBONEU mit eins initialisiert. Anschließend werden die 
Teillösungen genausooft zusammengesetzt wie FIBO aufgerufen wur- 
de. Und dies immer mit den Werten, die zuletzt berechnet wurden. 
Es soll an dieser Stelle nicht verschwiegen werden, daß sich 
nicht jede rekursive Definition auch für eine solche Realisierung 
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eignet. Mit anderen Worten ist die Rekursion nicht immer die 
optimale Lösung. Andererseits ist sie ein Instrument, das, wenn 
es richtig eingesetzt wird, effiziente und natürlich strukturier- 
te Programme liefert. Nachfolgend werden zwei weitere Beispiele 
für rekursive Algorithmen vorgestellt. 


3.4.1 Berechnung von Biromialkoeffizienten 


Aufgabe: Eine Funktion BINOMIAL berechnet Binomialkoeffizien- 
ten n über k. Die Argumente n und k werden als TOP 
und TOP-1 übergeben, das Ergebnis wird als Variable 
BIN abgespeichert. Mit einem Programm BINO soll die 
Funktion BINCMIAL aufgrufen und getestet werden. 

Algorithmus: Folgende Definition der Binomialkoeffizienten wird 
benutzt: 


;s wenınk=0 oder k=n 


w 
( IJ+»t )3 ven ü<sklm 
k-1 k 


mnnnnn 
fee 
I 
= 
u! 
ü 
—& 


Eine solche Erklärung der Binomialkoeffizienten legt 
eine rekursive Lösung des Problems nahe. 


Das Programm 

Offensichtlich muß das Programm auf folgendes hinauslaufen: BINO- 
MIAL wird sooft aufgerufen, bis das Anfangsproblem erreicht ist. 
Das ist hier wohl dann der Fall, wenn k=O oder k=n ist. Ansonsten 
setzt sich die Lösung (der Funktionswert BINOMIAL) aus den Funk- 
tionswerten seiner beiden Vorgänger zusammen. So zeigt Bild 13 
die für die Berechnung des Funktionswertes von n=6 und k=4 not- 
wendigen Aufrufe. An jedem Knoten sind die aktuellen Argumentwer- 
te angegeben. Von dort gehen dann zwei oder aber kein neuer Zweig 
ab. Letzteres da, wo entsprechend der vorn angegebenen Vorschrift 
der Fall k=0 oder k=n eingetreten ist. Dort ist der Funktionswert 
gleich 1. Im Programm muß das so realisiert werden, daß immer 
dann, wenn ein solcher Endpunkt erreicht ist, ein Zähler inkre- 
mentiert wird. Nach diesen Vorüberlegungen kann die Funktion 
BINOMIAL umgangssprachlich formuliert werden: 


PROGRAMM BINOMIAL 
DEKLARATION der Variablen 
ÜBERNAHME der Argumente (n,k) 
WENN k=n oder k=0, 
DANN erhöhe Zähler um eins, 
SONST 
RUFE BINOMIAL mit den Argumenten (n-1 , k-1) auf, 
RUFE BINOMIAL mit den Argumenten (n-1 , k ) auf, 
ÜBERSABE der Argumente (Zähler), 
ENDE. 


Bei der Bezeichnung der Variablen halten wir uns eng an die 
Definition, so daß n und k erhlaten bleiben. Den Zähler wollen 
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wir BIN nennen. Damit ergibt sich folgende Deklaration: 
VAR N VAR _K VAR BIN. 


Noch ein Wort zum Zähler BIN. Sein Anfangswert muß null sein. 
Dies ist auch nach der Deklaration der Fall. Nach dem ersten 
Programmablauf aber nicht mehr. Dann muß er explizit auf null 
gesetzt werden. Dies kann nicht in Binomial selbst geschehen, da 
sonst BIN bei jedem Aufruf null gesetzt würde und der Funktions- 
wert immer höchstens 1 sein könnte. Deshalb wird der Anfangswert 
von BIN im aufrufenden Programm null gesetzt. Der Rest des Pro- 
gramms kann fast wörtlich von unserer umgangssprachlichen Formu- 
lierung übernommen werden. Damit ergibt sich: 


DECLARE 
VARN VAR K VAR BIN 
VAR NN VAR KK 


DEND 
PROGRAM BINOMIAL 
Nie Ki: 
NT KR? = 
K2 3 DR. Dr 
BIN ? INC BIN := 
EILSE 
K X BEC: N? DEE 
K? N? DEE 
BINOMIAL 
BINOMIAL 
THEN 


END 


Das aufrufende Programm BINO liest die Argumentwerte ein, über- 
gibt sie BINOMIAL und gibt mit knappem Kommentar das Ergebnis 
aus. 


PROGRAM BINO 

0 BIN ® 

N READ N? NN 

K RERD K? KK 
K? N? BINOMIAL 
NN PRINT WRITE ' UEBER ' 

KK PRINT WRITE ' IST GLEICH ' 
BIN PRINT 

ER . 


non 


END 


An dieer Stelle sei dem Leser empfohlen, die Bewegungen auf dem 
Stack für einen Aufruf wie beispielsweise n=4 und k=2 nach dem 
Schema darzustellen, das auch bei der Quadratwurzelberechnung 
benutzt wurde. Zur Illustration rekursiver Aufrufe wurde o.a. 
Programm dahingehend erweitert, daß bei jedem Aufruf von BINOMIAL 
die aktuellen Argumente ausgedruckt wurden. Hier der Weg von 
BINOMIAL von der Wurzel bis zum Blatt (in Analogie zu Bild 13). 


Si 
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Ok! 
#BINO 
4 2 
N= 4 = 2 
= 3 = 2 
N= 2 K= 2 BIN= 1 
N= 2 = 1 
= 1 K= 1 BIN= 2 
= 1 = 0 BIN= 3 
N= 3 K= 1 
_ 2 K= 1 
Na 1 — 1 BIN= 4 
N= 1 = [6) BIN= > 
N= 2 K= 0 BIN= 6 
4 UEBER 2 LIST GLEICH 6 
ok! 


# 

Der Vollständigkeit halber sollen auf noch die Änderungen an dem 
Programm BINOMIAL gezeigt werden. An dem aufrufenden BINO hat 
sich nichts geändert. 


DECLARE 
VARN VAR K VAR BIN 
DEND 
PROGRAM BINOMIAL 
N ee 38 
WRITE ' N=’ N FRINT 
WRITE Ka K PRINT 
N® KK? = 
K® =. OR IF 
BIN ? INC BIN := 
WRITE "' BIN='" BIN PRINT CR 
ELSE 
ER 
K% DEC N? DEC 
K? N® BEE 
BINOMIAL 
BINOMIAL 
THEN 


END 


3.4.2 Der Turm von Hanoi 


Es soll noch ein weiteres Problem mithilfe einer Rekursion gelöst 
werden. Es ist dies die alte indische Sage, daß Mönche seit 
Beginn der Zeitrechnung damit beschäftigt seien, einen Stapel von 
50 goldenen Scheiben mit nach oben hin abnehmendem Durchmesser 
von einem Pfeiler auf einen zweiten umzuschichten. Dabei dürfen 
sie einen dritten als Hilfspfeiler benutzen. Sie müssen aber 
darauf achten, daß niemals eine Scheibe mit größerem Durchmesser 
auf eine mit kleinerem zu liegen kommt. 
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Das Programm 
Wie bereits wurde dieses Problem durch Rekursion 
gelöst. Die Prozedur ruft sich mit jeweils "umgeschichteten" 
Parametern solange auf, bis keine Scheiben mehr da sind. Die 
jeweils aktuellen Scheiben werden vom Programm Scheibe als Teil- 


lösung ausgegeben. 


angedeutet, 


DECLARE . 
VAR N VAR XI VAR XJ VAR XK 
DEND 
PROGRAM SCHEIBE 
WRITE ' Bewege oberste Scheibe vom Pfeiler ' 
XI PRINT CR 
WRITE ' zum Pfeiler ' 
x PRINT CR CR 
END 
PROGRAM UMSCHICHTEN 
N se Kl. nz Al ıe XK ı= 
N? 9872 IF 
NE KI E82 KR 
X ERK m KE m N ? DEC  UMSCHICHTEN 
Ka XAlız XlLıa Ne 
SCHEIBE 
XI? X) ? XkKk ? N ? DEC UMSCHICHTEN 
THEN 
END 
PROGRAM HANOI 
WRITE ' Anzahl der Scheiben ? ! 
N READ CR CR 
321 N? UMSCHICHTEN 
END 


Hier ein Testlauf für vier Scheiben. Es ist nahezu erschreckend, 
wie die Anzahl der notwendigen Umschichtungen mit der Zahl der 
Scheiben "explodiert". 


Ok! 
{HHANOI 


Anzahl der Scheiben ? 


Bewege oberste Scheibe 
zum Pfeiler 3 


Bewege oberste Scheibe 
zum Pfeiler 2 


Bewege oberste Scheibe 
zum Pfeiler 2 


Bewege oberste Scheibe 
zum Pfeiler 2 


4 


vom Pfeiler 


vom Pfeiler 


vom Pfeiler 


vom Pfeiler 
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Ok! 
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Bewege oberste 
zum Pfeiler 


Bewege oberste 
zum Pfeiler 


Bewege oberste 
zum Pfeiler 


Bewege oberste 
zum Pfeiler 


Bewege oberste 
zum Pfeiler 


Bewege oberste 
zum Pfeiler 


Bewege oberste 
zum Pfeiler 


Bewege oberste 
zum Pfeiler 


Bewege oberste 
zum Pfeiler 


Bewege oberste 
zum Pfeiler 


Bewege oberste 
zum Pfeiler 


Scheibe 
1 


Scheibe 
3 

Scheibe 
3 


Scheibe 
2 


Scheibe 
2 


Scheibe 
1 

Scheibe 
1 

Scheibe 
z 

Scheibe 
3 


Scheibe 
2 


Scheibe 
2 


vom 


vom 


vom 


vom 


vom 


vom 


vom 


vom 


vom 


vom 


vom 


Pfeiler 


Pfeiler 


Pfeiler 


Pfeiler 


Pfeiler 


Pfeiler 


Pfeiler 


Pfeiler 


Pfeiler 


Pfeiler 


Pfeiler 


4. _Anwendungen der Programmiersprache RPNL 


Frei mach dem Motto "Probieren geht über Studieren", sollen, 
nachdem Syntax und Semantik von RPNL vorgestellt sind, eventuelle 
offene Fragen geklärt und gleichzeitig Anwendungsmöglichkeiten 
eröffnet werden. 


Dazu werden einige Beispielprogramme entwickelt, die nach stei- 
gendem Schwierigkeitsgrad geordnet sind. Sind die ersten Program- 
me noch ausführlich durch begleitenden Text dokumentiert, so wird 
bei den letzten lediglich noch der Algorithmus bzw die verwendete 
Datenstruktur kurz erläutert. Dagegen wird vielmehr von dem Vor- 
teil Gebrauch gemacht, daß diese Programme selbstdokumentierend 
sind. Zwei Dinge ermöglichen dies. 


Einmal ist es die Namensgebung der einfachen Zeiger. Dabei kann 
der Programmierer durch ein wenig Phantasie bei der Wortwahl die 
Anschaulichkeit (Transparenz der Funktion) der Variablen wesent- 
lich steigern. Auch das Bemühen um eine Reduzierung der Anzahl 
der Variablen auf ein vernünftiges Maß macht ein Programm über- 
sichtlicher. 


Das zweite Hilfsmittel zur Dokumentation ist zunächst vorgegeben 
durch die Sprachmittel, die eine strukturierte Programmierung 
unterstützen.Augenscheinlich wird diese Programmierweise durch 
eine besondere Schreibart, die nämlich Schleifen und Bedingungen 
als solche sofort erkennen läßt. Damit wird die Tiefe einer 
Verschachtelung sichtbar und gleichzeitig der Anfang und das Ende 
von Schleifen. In diesem Zusammenhang soll auch auf die Möglich- 
keit der Herauslösung von Prozeduren und.Funktionen hingewiesen 
werden. Denn auch mit diesem Mittel können Teilprobleme ausge- 
klammert werden, die dann im aufrufenden Programm lediglich durch 
Nennen eines anschaulichen Namens und gleichzeitiger Übergabe der 
aktuellen Parameter anschaulich gelöst werden. 


4.1. Sortieren eines Array 


Das Programm dient insbesordere dem Zweck, einige Hinweise zur 
Handhabung des Array zu geben. Darüberhinaus kann es schließlich 
ein Beispiel dafür sein, wie eine Aufgabe strukturiert werden 
kann und in welchem Maße dadurch (hoffentlich) die Lesbarkeit des 
Programmes fÜr denjenigen steigt, der es nicht selbst erstellt 
hat. 


Aufgabe: Es soll eine Liste von maximal 300 Integerzahlen 
eingelesen werden. Anschließend wird diese Liste 
sortiert wieder ausgegeben. 

Algorithmus: Beim Sortieren wird der Algorithmus des direkten 
Einfügens benutzt. Ganz grob läuft folgendes ab. Man 
betrachtet zunächst nur das erste Element der Liste. 
Diese Teilliste ist sortiert. Dann wird das nächste 
(zweite) Element in diese Liste an der entsprechen- 
den Stelle eingefügt. Worauf auch diese Liste sor- 
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tiert ist. Anschließend wird das nächste Element 
einsortiert u.s.f. 


4.1.1 Das Programm 


Die Listenelemente werden in einem Array abgespeichert, das in 
einem Programm INDEX deklariert wird. Da die maximale Listenlänge 
300 betragen soll, wird das Array daraufhin festgelegt. Anhand 
der Eingabe der einzelnen INTEGER soll gezeigt werden, wie auf 
ein einzelnes Listen- bzw. Arrayelement zugegriffen wird. In dem 
entsprechenden Frogrammteil heißt es: 


FOR 
I INDEX READ 
LOOP 


Offensichtlich ist es so, daß Index auf das Array zeigt und der 
Laufindex I das daraus entsprechende Element angibt (daß es sich 
hierbei um einen Laufindex handelt, ist ohne Bedeutung). Um den 
Zusammenhang vollends aufzudecken, wollen wir die Funktion INDEX 
ausführlich hinschreiben 


FOR 
I 2 * LISTE « READ 
LOOP 


Bekanntlich generiert ein einfacher Zeiger wie LISTE eine Adres- 
se. Hier ist es die Basisadresse des Array desgleichen Namens. 
Basisadresse meint das erste (besser nullte) Element. Dieses 
Element ist 16 Bit, also zwei Byte lang. Demzufolge erreicht man 
das nächste Element zwei Adressen weiter. Also 


2 LISTE + READ , 
wenn man es einlesen will. Soll dagegen nicht das nächste, son- 
dern das Ite Element eingelesen werden, so muß offenbar I * 2 
Adressen weitergegangen werden, Dadurch kommt man zu 


I 2 * LISTE + READ 


Zieht man den Teil, den man öfter braucht, heraus und nennt ihn, 
damit er auch anschaulich bleibt, INDEX, so erhält man wie gehabt 


üb INDEX READ 
Und hier das Gesamtprogramm: 
DECLARE 
ARRAY LISTE 300 
VAR ANZAHL N 


VAR SI VAR X 
DEND 
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PROGRAM INDEX 
2 ® LISE #& 
END 
PROGRAM DRUCKE 
ANZAHL 2? 1 FOR 
I INDEX PRINT 
ıt 7 MB De 1 
ER 
THEN 
LOOP 
END 
PROGRAM EINGABE 
WRITE "ANZAHL : ' 
ANZAHL — READ 
ANZAHL 2? 1° FOR 
I INDEX READ 
LOOP 
END 
PROGRAM SORT 
ANZAHL 2? 2 FOR 
1 INDEX 7 % = 
x ® MQ NINDEX = 
L BEE O9 SI ı= 
REPEAT 
x 2? 5SJI 2? INDEX ? & NOT UNTIL 
SS ®% MEN 2 
SI 2 INGE INDEX = 
SI 2 DE 9 = 
LOOP 
x = SI '# ING ‚INDEX = 
LOOP 
END 
PROGRAM EINAUS 
EINGABE 
DRUCKE 
END 
PROGRAM SORTIERE 
EINAUS 
SORT 
CR  DRUCKE 
END 


4.1.2 QUICKSORT 


Im folgenden wird ein weiteres Sortierprogramm angegeben, das den 
gleichen Zweck erfüllt wie das obige. Allerdings ist dieser 
Algorithmus hinsichtlich der Verarbeitungsgeschwindigkeit überle- 
gen. Auf den Algorithmus als solchen soll hier nicht eingegangen 
werden. Er ist in der Literatur oft genug erklärt. Vielmehr soll 
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Zunächst das 


Punkten von dem 
selbst (PROGRAM 


DECLARE 


DEND 
PROGRAM 
END 


PROGRAM 


END 


PROGRAM 


END 


PROGRAM 
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ein Vergleich zwischen beiden Sortiermethoden durchgeführt 


Es unterscheidet sich an 2 
obigen Programm. Einmal ist dies der Sortierteil 
SORT) und cann noch dessen Aufruf. 


ARRAY LISTE 300 
VAR ANZAHL 
VAR SI VAR SI VAR X 
VAR L VAR R 
INDEX 
2 *= LISIE # 
DRUCKE 
ANZAHL 2? 1° FOR 
I INDEX PRINT 
I’ ww 9 If 
ER 
THEN 
LOOP 
EINGABE 
WRITE "ANZAHL : ' 
ANZAHL  READ 
ANZAHL 2? 1 FOR 
I INDEX  READ 
LOOP 
SORT 
DUP SI = L 
DUP SI = R = 
SI ®® SS 8 35 ZZ BN NR T X 88 
REPEAT 
REPEAT 
Se 2 10 7x8 28 
NOT UNTIL 
st % ME SI ‚= 
LOOP ” 
REPEAT 
x? 9 8 NR 8% 
NOT UNTIL 
s’ ?% DE 8 = 
LOOP 
= SS 2% = E 
Si 2 INDEX % 
ss % IBDX %? 
sI ?2 INDEX = 


END 


PROGRAM 


END 


PROGRAM 


END 


Als Vergleichskriterium soll die Anzahl der notwendigen 
schungen dienen, 


tor simuliert, 


tert. Offensichtlich ist dann derjenige der Schnellere, 
wenigsten Vertauschungen benötigt. 
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SS @% IDR 
sı # INC SI 
Ss © DES 


nu 


sıı 2 SS 3 > UNTIL 


EINAUS 
EINGABE 
DRUCKE 


QUICKSORT 
EINAUS 
ANZAHL 2? 1 SORT 
CR DRUCKE 


Vertau- 


die von dem Sortierprogramm durchgeführt werden 
müssen. Um für beide Programme die gleichen Startbedingungen zu 
haben, wird die Eingabe jeweils durch einen Zufallszahlengenera- 
der beide Programme mit den gleichen Zahlen füt- 


Rechenzeit. Zunächst das Programn. 


DECLARE 


DEND 


PROGRAM 


END 


ARRAY LISTE 300 
CONST ANZAHL 300 


VAR  ZUF1 VAR  ZUF2 

VAR SJ VAR X 

VAR ZAEHLER! 

VAR SI VAR L VAR R 


VAR ZAEHLER2 


RANDOM 
zer 8 31 * 18570 MOD 1 
zZer2 2 9 * 1729 MOD 1 
zur = 5 DV ZI ®% 2 


der die 
Denn die brauchen natürlich 


87 


Anwendungen der Programmiersprache RPNL 


88 


PROGRAM 


END 


PROGRAM 


END 


PROGRAM 


END 


PROGRAM 


END 


PROGRAM 


INDEX 
2% % WSTE # 
DRUCKE 
CR 
WRITE ' ! 
ANZAHL 1. FOR 
I INDEX PRINT 
I 9 MOD er ie 
CR WRITE ! 
THEN 
LOOP 
EINGABE 
123 ZUF1 ı= 234  ZUF2 = 
ANZAHL 1 FOR 
RANDOM I INDEX = 
LOOP 
SORT 1 


ANZAHL ? 2 FOR 


. ANBEX 7% = 
% ® © _ INDEX = 
T -DE& 8) ı= 
REPEAT 
x 2 SS ®2 INDEX? < NOT UNTIL 
SI 2 BD 3 
Ss) 2% IN INDEX 38 
Ss ®2 DE 8) se 
ZAEHLERI ? INC ZAEHLERI := 
LOOP 
x #9 2 IE INK = 
LOOP 
SORT2 
DUP SI i= L = 
DUP SI {= R YES 
SI? SS 7 = 2 DV IDEE x = 
REPEAT 
REPEAT 
ıı ? m 2? X 2 < 
NOT UNTIL . 
Ss & 180 SI = 
LOOP 
REPEAT 
x ®% 9 2% MERK = %< 
NOT UNTIL 
Ss © DE SI %e 
LOOP 
ıı 2 SS % = IF 
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Ss) = INDEX 2 
SI 2 INDEX > 
sI 2? INDEX ;= 
sl 2 JINE St 


Ss 2 BE 5 
ZAEHLERZ ® ING ZAEHLER2 «= 


THEN 
st 2. 5J 7 > UNTIL 
LOOP 
Ss @® RR 2 
SS %®<C IF 

SI ? E 2 SORT2 
THEN 
R s sI = 


THEN 
END 


PROGRAM EINAUS 
EINGABE 
DRUCKE 
END 


PROGRAM SORTIERE 
DO ZAEHLERI = O0 ZAEHLER2 := 
WRITE "UNSORTIERTE LISTE' 
EINAUS 


ANZAHL ? 1 SORT2 


WRITE 'SORTIERTE LISTE ' 
DRUCKE 
ER CR CR 
WRITE ' *** AUSWERTUNG Kt! CR 
WRITE "DER ALGORITHMUS DES DIREKTEN 
WRITE "EINFUEGENS BENODETIGTE' 
ZAEHLERI PRINT WRITE ' SCHRITTE' CR 
WRITE "DER ALGORITHMUS QUICKSORT BENOETIGTE ' 
ZAEHLER2 PRINT WRITE ' SCHRITTE" 
END 


Und hier das Ergebnis des Vergleiches. Man kann daran auch die 
Qualität des Zufallszahlengenerators erkennen. Der mögliche Ein- 
wand, daß die Zufallszahlen zweimal erzeugt und damit unter- 
schiedliche Voraussetzungen für die Sortierprogramme gegeben 
seien, trifft nicht zu, da der Generator bei gleicher Initiali- 
sierung auch die gleiche Folge von Zahlen erzeugt. Zu dem eigent- 
lichen Ergebnis ist kaum etwas hinzuzufügen. QUICKSORT schlägt 
das andere Verfahren haushoch. 
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Ok! 


SORTIERE 
UNSORTIERTE LISTE 


1600 
2788 
5986 
7420 
22230 
28441 
33210 
34814 


. 2668 


2912 
14030 
21090 
14365 

576 
38720 

3854 

3431 

2660 

1026 
32026 
35640 

5746 

1702 

2457 

6466 

6650 

2873 
17568 
42560 

3403 

9052 
19040 
24111 
20793 


9248 
20125 
4662 
17745 
282 
3146 
22560 
5875 
6422 
1344 
12194 
42636 
3230 
5624 
7803 
9275 
1470 
3549 
8601 
3458 
19920 
15500 
45968 
21584 
73917 
28101 
25840 
2280 
32368 
24850 
4536 
15288 
10857 
2782 


SORTIERTE LISTE 
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192 

636 
1026 
1474 
2158 
2340 
2668 
3230 
3840 
4644 
5644 
6336 
6864 
7800 
8034 
8730 
9243 


198 

638 
1118 
1488 
2163 
2412 
2782 
3264 
3854 
4662 
5746 
6422 
7020 
7803 
8232 
8736 
9248 


558 
31356 
25344 

5644 
21534 
2295 
2332 
6440 
1859 
17263 
32053 
2988 
42160 
18360 
13113 
20358 
16704 
45152 
8730 
9520 
6248 
19872 
8008 
21791 
25787 
4644 
23800 
11610 
2046 
20124 
12480 
7968 
26190 
2890 


282 

681 
1235 
1600 
2190 
2449 
2788 
3300 
3854 
4828 
5874 
6440 
7020 
7808 
8268 
8832 
9275 


17934 
28728 
3901 
38936 
19720 
9447 
21228 
14442 
46648 
7950 
10752 
2556 
21060 
6552 
22638 
23112 
6063 
21980 
12470 
1474 
20984 
10790 
8232 
23850 
3264 
2232 
7020 
9243 
32634 
21168 
1269 
10048 
9570 


306 

858 
1269 
1702 
2232 
2457 
2860 
3320 
3901 
4968 
5875 
6466 


7160- 


7917 
8280 
8844 
9280 


6810 
4368 
46150 
14904 
4368 
18249 
18939 
43344 
19320 
7654 
638 
16168 
8320 
6864 
20430 
1326 
40300 
4968 
6162 
26307 
17346 
9072 
8832 
5874 
ZZ 
23876 
14848 
2860 
681 
1014 
42900 
17802 
3744 


537 

864 
1326 
1859 
2232 
2465 
2873 
3403 
4046 
5040 
5986 
6552 
7328 
7950 
8308 
8957 
9447 


1118 
2574 
9546 
13975 
5040 
28260 
10508 
8308 
2232 
13114 
17871 
25970 
7020 
576 
858 
8541 
14097 
24940 
2100 
942 
8034 
8844 
7998 
7968 
18837 
21465 
2340 
864 
1235 
13221 
7659 
24725 
16380 
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910 
1344 
1995 
2256 
2542 
2890 
343] 
4290 
3393 
6063 
6588 
7420 
7968 
8320 
9052 
9520 


2449 
31191 
12740 

918 

7328 

8712 
23671 
29337 

9280 

3300 

537 

2158 
36696 
23478 

1488 
32877 
10530 

306 
10992 
12540 
36951 
15939 

9200 
25740 

7160 

7553 

1390 
12376 

2542 
14893 
16900 

4046 
28167 


576 

918 
1390 
2046 
2765 
2556 
2912 
3458 
4368 
5474 
6162 
6650 
7553 
7968 
8541 
9072 
9546 


2190 
585 
8268 
38808 
2153 
2256 
19773 
11826 
2412 
11760 
1995 
38872 
8280 
11155 
17082 
7800 
28938 
1470 
4828 
3854 
8957 
18980 
31892 
30135 
2163 
39904 
3840 
11135 
24309 
12675 
636 
35574 
6674 


576 

942 
1470 
2100 
2295 
2574 
2988 
3549 
4368 
5567 
6164 
6674 
7655 
7998 
8601 
3157 
9570 


6336 
13775 
26103 
16836 
37950 

2680 

3320 

8736 

910 
13260 
22960 
15529 

4290 

5474 
16236 
14935 
26796 

7808 
37950 
38073 

5395 

192 
22022 
18330 
13160 

5567 

198 

6164 
17424 

2465 
17094 

6588 
17490 


585 
1014 
1470 
zalalrg 
2332 
2660 
3146 
3744 
4536 
5624 
6248 
6810 
7659 
8008 
8712 
9200 

10048 
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10506 10530 10752 10790 10857 10992 11155 11155 11610 
11760 11826 12194 12376 12470 12480 12540 12675 12740 
13113 13114 13160 13221 13260 13775 13975 14030 14097 
14365 14442 14848 14893 14904 14935 15288 15500 15529 
15939 16168 16236 16380 16704 16836 16900 17082 17094 
17263 17346 17424 17490 17568 17745 17802 17871 17934 
18249 18330 18360 18837 18939 18980 19040 19320 19720 
19773 19872 19920 20124 20125 20358 20430 20793 20984 
21060 21090 21168 21228 21465 21534 21791 21980 22022 
22230 22560 22638 22960 23112 23478 23800 23850 23871 
23876 24111 24309 24725 24850 24940 25344 25740 25787 
25840 25970 26103 26190 26307 26754 26796 28101 28167 
28260 28441 28728 28938 29337 30135 31191 31356 31584 
31892 32026 32053 32368 32634 32877 33210 34814 35574 
35640 36696 36951 37950 37950 38073 38720 38808 38872 
38936 39904 40300 42160 42560 42636 42900 43344 45152 
45968 46150 46648 


#** AUSWERTUNG *%*%* 
DER ALGORITHMUS DES DIREKTEN EINFUEGENS BENDETIGTE 22235 SCHRITTE 
DER ALGORITHMUS QUICKSORT BENOETIGTE 678 SCHRITTE 
Ok! 


4.2 Die Erzeugung eines "Magischen Quadrates' 


Unter einem 'Magischen Quadrat' versteht man eine n * n - Matrix, 
deren Komponenten paarweise verschiedene Integerwerte zwischen 1 
und n**2 haben. Weiterhin muß die Summe einer jeden Zeile, Spalte 
oder Diagonalen denselben Wert ergeben. Dazu existiert für unge- 
rades n eine einfache Vorschrift, wie die einzelnen Felder zu 
besetzen sind: 


Beginne in der Mitte der ersten Zeile mit 1; dann gehe 
eins noch oben und eins nach links und trage die nächst 
größere Zahl in das leere Feld ein. Ist das vorliegende 
Feld schon besetzt, so gehe stattdessen um ein Feld nach 
unten und trage die Zahl ein. Wird der rechte Rand über- 
schritten, so gehe auf den linken Rand in der gleichen 
Zeile. wird der obere Rand überschritten, so gehe auf den 
unteren Rarıd in der gleichen Spalte. 


Der oben angegebene Algorithmus ist in dem folgenden Programm 
realisiert. Dabei ist gut die Modularisierung und die Vorteile 
der strukturierten Programmierung bei der Plausibilitätskontrolle 
zu erkennen. 


DECLARE 
VAR GROESSE VAR VERT VAR HORI VAR ZEILE 
STRING TEXT ' MAGISCHES QUADRAT ' 
ARRAY QUAD 144 

DEND 
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PROGRAM SPACE 
; Diese Prozedur erzeugt bei Aufruf 20 Blanks 
20 O FOR 
WRITE ' 
LOOP 
END 


PROGRAM BLANK 
; Diese Prozedur erzeugt soviele Blanks, wie der Parameter angibt 
; Im folgenden ist unter Parameter die Zahl gemeint, die vor dem 
; Aufruf der Prozedur genannt wird 

80 GROESSEE ? 8 * - 2 DIV O0 FOR 

WRITE * *® 

LOOP 

END 


PROGRAM STRICH 
; Diese Prozedur erzeugt soviele Striche, wie der Parameter angibt 


WRITE '-' 
END 


PROGRAM STERN 
; Diese Prozedur erzeugt soviele Sterne, wie der Parameter angibt 
G FOR 
WRITE '%*' 


END 


PRNGRAM EINGABE 
; Diese Prozedur fragt ab, wie groß das Quadrat werden soll 
REPEAT 
CR SPACE 10 STERN TEXT PRINT(S) 
10 STERN CR CR SPACE 
WRITE "WIE GROSS SOLL DAS ' 
WRITE "QUADRAT SEIN (£= 9) ? J 
GROESSE READ CR 
; hier findet die Überprüfung auf die gültige Eingabe statt 
GROESSEE ? 9 <= 


GROESSE ? 2 MOD 1 = AND UNTIL 
SPACE 
WRITE "BITTE UNGERADE ZAHL, DIE KLEINER" CR 
SPACE 
WRITE "ALS 9 IST, EINGEBEN: ' CR 
LOOP . 


END 


PROGRAM ELEMENT 
VERT ? DEC GROESSE ? * HORI ? DEC + 2 * QUAD + 
END = 


PROGRAM G++ 


GROESSE ? DUP * DEC 
END 
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PROGRAM LOESCHE 
; diese Prozedur iöscht das Array, in das 
‚ die Zahlen geschrieben werden 
G++ D FOR 
oO IL 2 * QUBD + 3e 
LOOP 
END 


PROGRAM AUSGABE 
; diese Prozedur gibt Jas Quadrat formatiert aus 
CR 
SPACE 
TEXT PRINT(S) 
WRITE 'MIT DER LAENGE ' GROESSE FRINT CR 
ER BLANK GROESSE ? 8 * STRICH CR 


BLANK 
WRITE 'T' 
ii ZEILE = 
G++ O0 FOR 
I 2 * QUAD + PRINT 
WRITE ® IL" 
I INC GRUESSE ? MD = If 
CR BLANK GROESSE ? 8 * STRICH 
ZEILE ? GROESE ? < IF 
BLANK WRITE "I! 
ZEIE TE EIE = 
THEN 
THEN 
LOOP 


END 


PROGRAM QUADRAT 
; dies ist das Hauptprogramm, das auch aufgerufen wird 
; hier wird das Magische Quadrat erzeugt und 
;‚ die Ausgabe veranlaßt 
EINGABE 
LOESCHE 
ERGESSE 7 BEC 2 BIN 2 + HORE de 
2. VERT ;= 
G++ INC 1 FOR 
HORI 2 DEE HORI = 
HORI 2? 0= IF 
VERT®@ı1= IP 


1 HORI := 

3: 'VERI = 
ELSE 

GROESSE ? HORI := 
THEN 


THEN 
VERT ® DEE VERT 3= 
VERI © (= IF 
GROESSE ? VERT := 
THEN 


CR 
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END 


ELEMENT ? 0 €&> IF 
VERT ® 2 + WERT = 
HRI ? 1 + HORI = 
THEN 
t ELEMENT ie 
LOOP 
AUSGABE 


Der Rechner erzeugt dazu den folgenden Ausdruck: 


Ok! 
SQUADRAT 
KARKKRHRRRRR MAGISCHES QUADRAT KAKRKERKRRRE 
WIE GROSS SOLL DAS QUADRAT SEIN (&= 9) ? 6 
BITTE UNGERADE ZAHL, DIE KLEINER 
MS 9 IST, EINGEBEN! 
WR MAGISCHES QUADRAT PH 
WIE GROSS SOLL DAS QUADRAT SEIN (£= 9) ? 7 
MAGISCHES QUADRAT MIT DER LAENGE 7 
I 28 I 19 1 101 ie 48 1 39 I 30 I 
I 29 I Zu I 18 1 2:1 2ıi Le 381 
I 371 351 26 I ie SI 61 46 I 
I 45 1 36 I 34 I 55.1 16 I 14 I 51 
I 4l 44 1 42:7 33 1 24 1 15 1 131 
I 107 31 43 1 4ıl 32 1 23 I 2 
I 20 1 Mi 2ı 41 40 I 311 22 1 
Ok! 
> 
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4.3 Test von Schreiblesespeichern 


Bei Zweifel an dem einwandfreien Funktionieren von Schreiblese- 
speichern ist es zweckmäßig, diese durch Software zu überprüfen. 
Dabei sind im wesentlichen 3 Dinge zu berücksichtigen: 


1. meist sind nur einige Speicherzellen eines Bausteines 
defekt. 

2. Der Fehler tritt nur sporadisch auf und 

3. erscheint oftmals nur nach längerer Betriebsdauer. 


Diese Kriterien wurden beim Entwurf des Testprogramms folgender- 
maßen berücksichtigt: 


Es werden alle Speicherstellen nacheinander geprüft. 
und 

Das Programm ist in einer Schleife angelect, die 
jeden Baustein 100mal testet. 


NN.“ 


Man läßt das Programm am besten nach einer gewissen Betriebszeit 
(ca 1 Stunde) laufen. Wird danach kein Fehler diagnostiziert, so 
kann man davon ausyehen, daß der getestete Speicherbereich in 
Ordnung ist. Das vorliegende Programm zeigt einmal mehr, wie 
nützlich es ist, Programme in Maschinensprache direkt in Hoch- 
sprachprogramme einbinden zu können. Es ist naheliegend, da3 
solche Probleme, die die direkte Adressierung von Speicherbau- 
steinen voraussetzen, am geschicktasten in einer Sprache formu- 
liert werden, die dieser Ebene am nächsten kommt, nämlich die 
Maschinensprache. 


DECLARE 
CONST ANZDRCHLAEUFFE 100 
VAR ERSTE VAR LETZTE 
VAR  ZAEHLER VAR FEHLER 
VAR  FEHLERSTELLE 
DEND 
CODE TEST 
D1 ; POP DE 
E1 : POP HL 
97 ; MARKEI A = 0 
77 ; MARKE2 (HL) := A 
BE : (HL) = A ? 
01 FF FF ; BC := FEHLER 
; FF FF = TRUE 
28 15 ; JR NZ,FEHL 
46 ; B = (Hl) 
B8 5 A =B? 
O1 FF FF ; BC  := FEHLER 
20 OE . IR NZ,FEHL 
3C 7 A if 1 
20 EF s JR NZ ,MARKE2 
23 1 HL := HL + 1 
7 ; CLEAR CARRY 
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CE 
PR 


EN 


Ok 
AR 


Ok: 


96 


E5 ; PUSH HL 
ED 52 ; SBC HL,DE 
E1 5 POP HL 
20 E6 ’ JR NZ,MARKE 
01 00 00 ‚ BC = KEIN 
: 00 00 = FALSE 
ES : FEHL PUSH HL : 
- DEFEKTE Z 
65 ; PUSH BE; 
5 FEHLER 
ND 
OGRAM RAMTEST 
CR 
WRITE ' Erste Speicherstelle ! 
ERSTE READ CR 
WRITE ' Letzte Speicherstelle ' 
LETZTE READ CR 
O ZAEHLER := 
REPEAT 
ERSTE 7% LETZTE ? 
best FEHLER %e FEHLERSTELLE = 
ZAEHLER ? INC ZAEHLER := 
ZAEHLER ? ANZDRCHLAEUFFE = 
FEHLER 2 TRUE = OR UNTIL 
LOOP 
FEHLER ? FALSE = IF 
WRITE ' Es wurde zwischen den Speicherstellen ' 
ERSTE PRINT CR 
WRITE und ' LETZTE PRINT 
WRITE ' kein Fehler gefunden' CR CR 
ELSE 
WRITE ' Es wurde in der Speicherstelle ' 
FEHLERSTELLE PRINT 
WRITE ' ein Fehler entdeckt!' 
THEN 
D 
H 
AMTEST 
Erste Speicherstelle 40960 
Letzte Speicherstelle 41088 
Es wurde zwischen den Speicherstellen 40960 


und 41088 kein Fehler gefunden 


1 
FEHLER 


ELLE 


JA/NEIN 
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4.4 Implementierung eines Editors 


Nahezu alle Rechnersysteme verfügen über dieses Standardprogramn, 
das den Benutzer bei der Arbeit mit dem Rechner unterstützer, 
soll. Dabei werden Änderungen und Einfügungen mit Hilfe einfacheı 
aber mächtiger Anweisungen durchgeführt. Die Aufgaben des hieı 
beschriebenen Editorprogrammes sind im wesentlichen: 


(1) Einführung eines Editormode in den RPNL-Compiler. Also Er- 
öffnung der Möglichkeit, Programme als Quellprogramme zu 
speichern und zu redigieren. 


(2) Anwendung der Sprache in einem grösseren Zusammenhang. 


Der Editor ist zeilenorientiert. Das bedeutet, dass alle Manipu- 
lationen anhand von Zeilennummern durchgeführt werden. Allerdings 
werden sie nicht mit abgespeichert, sondern bei Bedarf neu be- 
rechnet. Dies ergibt ein Format, das vom Compiler, der diesen 
Text ja verstehen muss, akzeptiert wird. Der Text wird in einem 
sogenannten Editbereich abgelegt. Zu dessen Verwaltung werden 
einige Zeiger benutzt. Das sind zunächst einmal 2 Zeiger auf die 
aktuelle Zeile. Dann spielt aber auch der Zeiger auf den Variab- 
lenbereich eine wesentliche Rolle. Bei Aufruf des Schlüsselwortes 
READ(S) werden nämlich die eingegebenen Texte in den Variablenbe- 
reich geschrieben, also unter diesem Zeiger abgelegt. Erst später 
werden sie in den Editbereich kopiert. Der Text wird beendet 
durch das Zeichen '$'. Dieses Zeichen wird auch mit abgespeichert 
und bei allen Abbruchkriterien benutzt. Wie schon angedeutet, 
werden alle Korrekturen mit Zeilennummern eingebracht. Das hat 
zur Folge, daß häufig solche Nummern als Eingabe verlangt werden. 
Dies geschieht im Programm mit Hilfe der Prozedur READ , die auf 
eine numerische Eingabe besteht. Das bedeutet, eine solche Ab- 
frage kann nicht übergangen werden und alle geforderten Angaben 
sind zu machen, auch wenn sie nicht benötigt werden. Die Be- 
schreibung der einzelnen Aktionen erfolgt in den nächsten Kapi- 
teln. 


4.4.1 Das Menue 

Die Aufgabe des Hauptprogrammes liegt im wesentlichen darin, die 
möglichen Aktionen zu definieren und aufzurufen. Doch werden bei 
jedem erneuten Aufruf des Programmes EDITOR die erwähnten Zeiger 
auf Anfangswerte gesetzt. Dadurch wird der gesamte Editbereich 
geleert. Bei Aufruf einer nicht definierten Aktion erfolgt eine 


Fehlermeldung mit Hinweis auf die erlaubten Prozeduren. Mit der 
Aktion ENDE wird der Editor verlassen. 


4.4.2 Die Prozeduren 


4.4.2.1 EINGABE 


Diese Aktion ermöglicht es, Texte einmal einzugeben, aber auch 
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Texte in einem schon bestehenden File einzufügen. Dabei wird 
immer hinter der eingegebenen Zeilennummer eingefügt. Bei der 
ersten Eingabe ist die Zeilennummer belanglos, wird aber gefor- 
dert. Der Vorgang des Einfügens soll an einem kurzen Beispiel 
erläutert werden. Der Editbereich habe folgendes Aussehen: 


3FFE 15 40 <&--- Endadresse 
4000 (10) 08 XXX 
4009 (20) 03 XXX 
400D (30) 0’XXXXXXX  <&--- Textende 

4015 01 40 €--- Endezeichen 


(X steht für ein beliebiges ASCII-Zeichen) 


Hinter der Zeilennummer 20 soll eingefügt werden. Die Adresse 
400D wird als Einfügeadresse ermittelt. In den Variablenbereich 
wird der einzufügende Text geschrieben, dessen Länge ermittelt 
und der Teil des Editbereiches von 400D bis 4017 um genau diese 
Länge nach hinten verschoben. In die nun freie Lücke wird dann 
der Text aus dem Variablenbereich kopiert. 


PROGRAMM EINGABE 
LIES Zeilennummer 
STELLE Einfügeadresse fest 
WIEDERHOLE 
BIS Eingabe = '$' 
GIB Zeile ein 
STELLE Länge der Zeile fest 
VERSCHIEBE Editbereich um diese Länge 
KOPIERE Zeile aus dem Variablenbereich nach Einfügeadresse 
EINFUEGEADRESSE ist gleich altem Wert + Länge der Zeile 
KORRIGIERE Variablenadresse und Endadresse 
ENDE 
ENDE 


4.4.2.2 DRUCKE 


Nach Eingabe dieser Aktion wird der gesamte Editbereich ausge- 
druckt. Das Programm läuft in einer Schleife, die bei Erkennen 
des Terminators '$' abgebrochen wird. Dieses Programm benötigt 
keine Eingabeparameter. 


PROGRAMM DRUCKE K 
ADRESSE ist der Anfang des Editbereiches 
WIEDERHOLE 
BIS String von Adresse = '$' 

DRUCKE String von Adresse 
NEUE Zeile (CR) 
LADE die Länge dieses String 
ADDIERE sie zu Adresse 
ENDE 
ENDE 
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4.4.2.3 LISTE 


Im Gegensatz zu DRUCKE werden bei dieser Aktion einmal die Zei- 
lennummer mit ausgegeben und auch nur der Bereich zwischen den 
eingegebenen Zeilennummern aufgelistet. Damit die Ausgabe langer 
Programme nicht durchläuft, ohne gelesen werden zu können, werden 
immer nur 8 Zeilen auf dem Bildschirm dargestellt. Danach erwar- 
tet das Programm die Eingabe einer beliebigen Zahl. Ansonsten 
funktioniert der Algorithmus wie der bei DRUCKE. 


PROGRAMM LISTE 
ADRESSE ist der Anfang des Editbereiches 
ZEILENNUMMER ist 10 
LIES Anfang (erste Zeilennummer) 
LIES Ende (letzte Zeilennummer) 
WIEDERHOLE 
BIS String von Adresse = '$' 
ODER Zeilennummer > Ende 
WENN Zeilennummer 3= Anfang 
DANN drucke Zeilennummer und ' ' 
drucke String von Adresse, neue Zeile 
WENN der Quotient aus Zeilennummer und Anfang einen 
Rest von 80 ergibt (entsprechend 8 Zeilen) 
DANN warte auf Eingabe einer Zahl 
ENDE 
ENDE 
LADE die Länge des aktuellen String 
ADDIERE sie zur Adresse 
ERHOEHE die Zeilennummer um 10 
ENDE 
ENDE 


4.4.2.4 LOESCHE 


Mit dem Programm LOESCHE können Teile des Editbereiches ausra- 
diert werden. Es ist naheliegend, daß diese Aktion ähnlich funk- 
tioniert wie EINGABE, aber natürlich umgekehrt. So werden gem. 
der eingegebenen Grenzen der zu löschende Speicherbereich durch 
den verbleibenden überschrieben. 


PROGRAMM LOESCHE 
ADRESSE ist der Anfang des Editbereiches 
ZEILENNUMMER ist 10 
LIES Anfang (erste Zeilennummer) 
LIES Ende (Letzte Zeilennummer ) 
WIEDERHOLE 
BIS der String von Adresse = '$' ist 
ODER die Zeilennummer > Ende 
WENN die Zeilennummer >= Anfang 
DANN 
LADE Quelle (2 mal) 
LADE Ziel und vertausche sie 
LADE Adresse und vertausche 
SUBTRAHIERE (das ist jetzt die Länge) 
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Erhöhe sie um 2 (wegen '$') 
VERSCHIEBE alles 
BERECHNE Adresse 

SONST 

BERECHNE neue Adresse 

ENDE ° 

ERHOEHE Zeilennummer um 10 

ENDE 

ENDE 


4.4.2.5 SUCHE 


Dieses Programm findet im Text das Vorkommen eines eingegebenen 
Stichwortes. Dazu werden mehrere Zeiger benutzt. So läuft einer 
im String, bis der angezeigte Buchstabe gleich dem ersten Buch- 
staben im Stichwort ist. Trifft dieser Fall ein, so werden 2 
weitere Zeiger aktiviert. Einer davon läuft dann im Stichwort, 
der andere im String an der Stelle, wo das Stichwort vermutet 
wird. 


PROGRAMM SUCHE 
ADRESSE ist der Anfang des Editbereiches 
LIES das Stichwort 


WIEDERHOLE 
BIS String von Adresse = '$' 
WIEDERHOLE 
BIS dieser String zu Ende 
WIEDERHOLE 


BIS der Buchstabe nicht zum Stichwort passt 
WENN Stichwortlänge = O 
DANN 
DRUCKE String aus 
SONST erhöhe Zeiger im String 
und Zeiger im Stichwort 
erniedrige die Stichwortlänge 
ENDE 
ENDE 
ERHOEHE Zeiger im String 
ENDE 
NAECHSTER STRING 
ENDE 
ENDE 


4.4.3 Das Programm . 


DECLARE 
VAR DISTANZ VAR TEXTADR 
ARRAY GRUNDADRESSE 7 
STRING 8 '$' 
VAR WORT VAR ADR 
VAR H1 VAR H2 VAR H3 VAR H4 
VAR H5 VAR H6 VAR H7 
VAR ALT VAR EGABE VAR EADR VAR EADRN 
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VAR ANF VAR EN VAR SWORT VAR SWZG 
VAR STRNGZGI VAR STRNGZG2 
VAR SWLNG VAR STRING 
STRING H1 "DRUCKE' 
STRING H2 'LISTE' 
STRING H3 "EINGABE ' 
STRING H4 "LOESCHE' 
STRING H5 "SUCHE" _ 
STRING H6 "AKTIONEN"! 
STRING H7 "ENDE! 

DEND 


PROGRAM EDBEREICH 
SYSFIELD ? 
END 


PROGRAM ADRESSE 
GRUNDADRESSE DISTANZ ? 2 * + 
END 


PROGRAM STERN 
11 @ FOR 
WRITE "*" 
LOOP 
END 


PROGRAM STRNGADR 

2 ‚ADRESSE = 

DISTANZ ? INC DISTANZ := 
END 


PROGRAM UEBSCHRIFT 
STERN 
PRINT(S) 
STERN CR 

END 


PROGRAM $AKTION 
CR STERN STERN STERN CR 


WRITE "FOLGENDE AKTIONEN SIND DEFINIERT"! 


I DISTANZ := 
ADRESSE PRINT(S) 
ER 
LOOP 
STERN STERN STERN CR 
END 


PROGRAM NEXT 
ADR ? DUP ?(B) + INC ADR := 
END 
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PROGRAM =$ 
ADR ? 8 ? =(S) 
END 


PROGRAM $DRUCKE 
EDBEREICH ADR := 
REPEAT 
=8 UNTIL 

ADR PRINT(S) 


PROGRAM ZN+ 
ZN ? 10 + ZN := 
END 


PROGRAM ANFEND 
EDBEREICH ADR := 10 ZN := 
WRITE "ERSTE ZEILENNUMER: ' 
ANF READ 
WRITE "LETZTE ZEILENNUMMER: ' 
EN READ 

END 


PROGRAM $LISTE 
ANFEND 
REPEAT 
ZN ? EN ? > OR UNTIL 
ZN ? ANF ? >= IF 
ZN PRINT WRITE ' ! 
ADR PRINT(S) CR 
ZN ? ANF ? %> 
ZN ? ANF ? - 80 MOD O= AND IF 
ALT READ 
THEN 
THEN 
NEXT 
ZN+ 
LOOP 
END 


PROGRAM $EING 
EDBEREICH ADR := 
10 ZN := 
WRITE 'ZEILENNUMMER 7? ' ANF READ 
REPEAT 
ZN ? ANF ? >= UNTIL 
NEXT ZN+ 
LOOP 
ADR ? EDBEREICH ADR := 
REPEAT 
=8 UNTIL 
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NEXT 
LOOP 
ADR ? INC DUP ALT := EADR := 
ADR := 
REPEAT 
TEXTADR ? 
EGABE READ(S) 
TEXTADR := 
EGABE ? 8 ? =(S) UNTIL 
EGABE ? ?(B) INC EADR ? + EADRN := 
REPEAT 
EADR ? ADR ? DEC <= UNTIL 
EADR ? ? EADRN ? := 
EADR ? 2 - EAOR := 
EADRN ? 2 - EADRN := 
LOOP 
EGABE ? ADR ? EGABE ? ?(B) INC 
MVBYTES 
EGABE ? ?(B) INC DUP 
ADR ? + ADR := 
ALT ? + DUP 
ALT 53 
EADR := 
LOOP 
8193 EADR ? DEC := 
EADR ? DEC EDBEREICH 2 - := 
END 


PROGRAM $LOESCHE 
ANFEND 


=$ 
ZN ? EN ? > OR UNTIL 
ZN ? ANF ? >= IF 
ADR ? DUP ?(B) + INC DUP 
ADR ? SWAP EDBEREICH 2 - ? SWAP - 


DUP ALT := 2 + 

MVBYTES 

ADR ? ALT ? + EDBEREICH 2 - := 
ELSE 

NEXT 
THEN 

ZN+ 
LODOP 
END 


PROGRAM $SUCHE 
EDBEREICH ADR := 
SWORT READ(S) 
REPEAT 
=8 UNTIL 
ADR ? INC STRNGZGI := 
ADR ? ?(B) SWORT ? 
?(B) - STRLNG := 
REPEAT 
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STRLNG ? O= UNTIL 
STRNGZGI ? STRNGZG2 := 
SWORT ? INC SWZG := 
SWORT ? ?(B) SWLNG = 
REPEAT 
STRNGZG2 ? ?(B) 
SWZG ? ?(B) <P UNTIL 
STRNGZG2 ? INC STRNGZC2 : 
SWZG ? INC SWZG ; 
SWLNG ? DEC SWLNG 
SWLNG ? O= IF 
ADR PRINT(S) CR 
THEN 


LOOP 
STRLNG ? DEC STRLNG := 
STRNGZG1 ? INC STRNGZGI := 
LOOP 
NEXT 
LOOP 
END 


PROGRAM EDITOR 
H1 STRNGADR 
H2 STRNGADR 
H3 STRNGADR 
H4 STRNGADR 
H5 STRNGADR 
H6 STRNGADR 
H7 STRNGADR 
SYSFIELD ? TEXTADR := 
SYSFIELD ? 80 + SYSFIELD := 
EDBEREICH EDBEREICH 2 - := 
EDBEREICH ALT := 
8193 EDBEREICH := 
0 DISTANZ := 
STERN 
WRITE ' AKTIONENLISTE ' 
STERN CR CR 
REPEAT 
CR CR 
WRITE "BITTE GEBEN SIE IHRE AKTIONEN EIN : 
WORT READ(S) 
WORT ? H7 ? =(S) IF 
WRITE "ENDE DES PROGRAMMES' 
ELSE 
WORT ? H1 ? =(S) IF . 
H1 UEBSCHRIFT $DRUCKE 
ELSE 
WORT ? H2 ? =(S) IF 
H2 UEBSCHRIFT $LISTE 
ELSE 
WORT ? H3 ? =(S) IF 
H3 VEBSCHRIFT $EING 
ELSE 
WORT ? H4 ? =(S) IF 


104 


Anwendungen der Programmiersprache RPNL 


HA VEBSCHRIFT $LOESCHE 
ELSE 
WORT ? H5 ? =(S) IF 
H5 UVEBSCHRIFT $SUCHE 
ELSE 
WORT ? H6 ? =(S) IF 
H6 VEBSCHRIFT $AKTION 
e ELSE 
WRITE 'DIE AKTION ' WORT PRINT(S) 
WRITE ' IST NICHT DEFINIERT' 
$AKTION 
THEN THEN THEN THEN 
THEN THEN THEN 
WORT ? H7 ? =(S) UNTIL 
LOOP 
END 
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5. Der RPNL - Compiler für Z-80 Mikrocomputer 


5.1 Das Assemblerlisting 


PAGE 61 

„280 

TITLE _RPNL-COMPILER Version 1.0 
ORIGINAL: 27.06.1983 
MODIFIED: 


COPYRIGHT <C? BY 
DIPL.-ING. GUSTAV WOSTRACK 


en 


AKHKKKRKRKRKHÄRRHRRFHHRRRHHHRHRRKHHKKRHRRRRR 


ee ee ee u u u u ne 


WARMST EQU_  0000H 
LOGIO EQU 0005H 
FCB EQU 005CH 
START EQU DO100H 
CMPEND EQU OCOOOH 
“I 
|. 
ASEG 
ORG START 
* 
* 
* 
* Initialisierung und Laufzeitsystem 
We seen; la Jap m m FF 


Beim Start des Programmes erfolgt eine Anpassung 
des Compilers an das jeweils gerade benutzte 
CP/M-System. Da insbesondere alle Ausgaben des 
Compilers und die von Anwenderprogrammen nicht 
die entsprechenden BDOS - Funktionen, sondern die 
wesentlich schnelleren BIOS Routinen benutzten, 
müssen die aktuellen Startadressen dieser 
Routinen aus der BIOS - Sprungleiste entnommen 
und in die entsprechen Stellen im Compiler 
eingetragen werden. Nachdem der Stackpointer 
gesetzt ist, wird der Interpretations-Pointer 
(IP) mit der Adresse der ersten auszuführenden 


Bee ee ee u ur rue 
KK KK 
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DPD EEPTEENZ EP TEPTEERDEERPEEPTERTEER EEE DEE TERN 
KK KU EU Eee 


NSTART: 


STRTCP: 


.* 
’ 
. %* 


’ 
ACTDRV: 
;* 
.* 


NEWSTRT: 
INTLOOP: 


EX: 


PSTACK 
1er 
.%* 


ASTACK: 
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Routine geladen. Durch den anschließenden Sprung 
zum Laufzeitsystem NEXT wird dann diese Routine 
gestartet. Die Funktion von NEXT, CODE und CEND 
ist ausführlich im Textteil erklärt. 

Die angesprochene erste Routine bringt lediglich 
eine Meldung der Betriebsbereitschaft des 
Compilers. Anschließend gerät der Compiler in 
eine Schleife, die das eigentliche Dialogsystem 
ermöglicht, also den Aufruf von Programmen. 
Dazu wird das Prozedur INTERACT gestartet. Nach 
einem erfolgreichen Programmablauf oder nach 
einer entsprechenden Fehlermeldung kehrt das 
System immer wieder in genau diese Schleife 
zurück. 


LD A, (0004) 

LD (ACTDRV),A 

CALL MVLSTKRN ; VERSCHIEBE DIE LISTEN 
LD HL, (WARMST+1) 

LD DE ,0009 

ADD HL ,DE ; HL := CONSOLE OUTPUT 
LD (OUTTBX+1),HL 

LD (OUTTBY+1),HL 

LD (DRUCK+2) ,HL 

LD HL ,ZCNT 

LD (HL),O 

LD SP,PSTACK 

LD HL ,NEWSTRT-1 

LD (IP),HL 

IP NEXT 

DEFB 00 


DEFW  CTITLE 
DEFW  EX,PEEKW,EXEC 
DEFW JUMP, INTLOOP-1 
DEFW VARIABLE, INTERACT 


DEFS 50H 

EQU $ 

DEFW 0000 

ZEIGT AUF DEN NÄCHSTEN NAMEN-1 
DEFW $+2 

DEFS SOH 


; Interner Übersetzer 


LD HL,(IP) 
INC HL 

LD E,(HL) 
INC HL 

LD D, (HL) 
LD (IP),HL 
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EX DE,HL 
LD E; (HL) 
INC HL 
LD D,(HL) 
EX DE,HL 
JP (HL) 
Re 
ER 
CODE: ; Beginn des 
; zusammengesetzten Typs 
.%* 
’ 
LD HL,(IP) 
EX DE,HL 
LD (IP),HL 
LD HL, (RSTACK) 
LD (HL),E 
INC HL 
LD (HL),D 
INC HL 
LD (RSTACK) ‚HL 
JP NEXT 
5.®* 
;_*® 
CEND: ‚ Ende des 
; zusammengesetzten Typs 
. * 
j DEFW $+2 
8») HL, (RSTACK) 
DEC HL 
LD D,(HL) 
DEC HL 
LED E,(HL) 
LD (RSTACK) ‚HL 
EX DE,HL 
LD (IP) ,HL 
JP NEXT 
EL 
, * 
INC: 
5 
;® 
5 
sy * Wert wieder auf den Stack. 
.* 
; DEFW $+2 
POP HL 
INC HL 
PUSH HL 
IR NEXT 
# 
:=* 
DEC: 
;* 
DEFW $+2 
POP HL 
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Diese Routinen laden das oberste Wort vom Stack 
in das Doppelregister HL, erhöhen bzw erniedrigen 
dessen Wert um eins und legen diesen veränderten 


Dur u 
KK KK KK 


wow un ue ne 


Dur ne 


KK KEN KK 


KPPEEUPEEPP EEE: 


KKKKKRKETM KK 


._ 
DS 
= 


oO 
m 
[es] 


KKKKKNKK 


=) 
m 
Pe 


a 
oO 
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DEC HL 
PUSH HL 
JP NEXT 


; lädt ein Byte 


Der Wert von TOP wird als Adresse interpretiert 
und das unter dieser Adresse abgelegte Byte in 
das Register DE geladen. Das höherwertige Byte 
wird auf Null gesetzt. 


DEFW $+2 
POP HL 

LD E,(HL) 
LD D,00 
PUSH DE 

IP NEXT 


‚ lädt zwei Byte 


Der Wert von TOP wird als Adresse interpretiert 
und die unter dieser und der folgenden Adresse 
abgelegten Bytes werden in das Register DE 
geladen. 


DEFW $+2 
POP HL 

LD E,(HL) 
INC HL 

LD D,(HL) 
PUSH DE 

Ip NEXT 


; legt ein Byte ab 


Der Wert von TOP wird als Adresse interpretiert 
und das niederwertige Byte des Wertes von TOP-1 
unter dieser Adresse abgelegt. 


DEFW $+2 
POP HL 

POP DE 

LD (HL),E 
IP NEXT 


; legt zwei Byte ab 
Der Wert von TOP wird als Adresse interpretiert 


und der Wert von TOP-1 unter dieser und der 
folgenden Adresse abgelegt. 
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KKkKKKKZK KK 


wenn een we ne 
& 
=) 
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DEFW $+2 
POP HL 

POP DE 

LD (HL),E 
INC HL 

LD (HL),D 
JP NEXT 


; legt das nächste Wort 
; auf den Stack 


DEFW $+2 

LD HL,(IP) 
INC HL 

LD E,(HL) 
INC HL 

LD D,(HL) 
PUSH DE 

LD (IP) ,HL 
IP NEXT 


; holt ein Wort vom Stack 


DEFW — $+2 
POP HL 
IP NEXT 


; vertauscht TOP und TOP-1 


DEFW $+2 
POP HL 

EX (SP),HL 
PUSH HL 

IP NEXT 


; dupliziert TOP nach TOP-1 


DEFW $+2 
POP HL 
PUSH HL 
PUSH HL 
JP NEXT 


; unbedingter Sprung 

Der Inhalt der Speicherstellen auf die der IP 
zeigt, wird in das Doppelregister DE geladen und 
dann wieder auf IP abgelegt. Dadurch erfolgt die 
Programmfortsetzung an einer Adresse, die hinter 
dem Aufruf dieser Routine steht. 

Beispiel: 
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Ya JUMP XXXX ===} Programmfortsetzung bei XXXX 
.* 
’ 
DEFW $+2 
JUMP1: LD HL,(IP) 
INC H 
LD E,(HL) 
INC HL 
LD . D,(HL) 
EX DE,HL 
LD (IP),HL 
Jp NEXT 
® 
* 
IHZ% ; bedingter Sprung 
;* IFZ,IFNZ,IFEQ,IFGT 
ir Alle diese Routinen arbeiten nach dem o.a. 
A Prinzip. Allerdings mit dem Unterschied, daß der 
* Sprung nur unter gewissen Voraussetzungen 
;* (Erfüllung einer Bedingung, z.B. TOP ist Null) 
gr durchgeführt wird. Andernfalls erfolgt die 
;# Programmfortsetzung bei der Adresse IFXX + 4. 
.* 
’ 
DEFW $+2 
POP HL 
LD A,H 
OR L 
IR Z, JUMP 1 
SKIP: LD HL, (IP) 
INC HL 
INC HL 
LD (IP),HL 
IP NEXT 
a 
:_# 
IFNZ: ; bedingter Sprung 
Er. 
’ 
DEFW $+2 
POP HL 
LD A,H 
OR L 
IR NZ, JUMP 1 
IR SKIP 
# 
# 
IFEQ: ; bedingter Sprung 
.%* 
’ 
DEFW $+2 
POP HL 
POP DE 
AND A 
SBC HL ,DE 
JR Z,JUMP1 


IR SKIP 
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IFGT: ; bedingter Sprung 
.* 
’ 
DEFW $+2 
POP HL 
POP DE 
AND A 
SBC HL,DE 
IR €, JUMP 
IR SKIP 
2% 
Me 
CNSTNT: 
Re 
EX DE,HL 
INC HL 
LD E,(HL) 
INC HL 
LD D,(HL) 
PUSH DE 
IP NEXT 
; * 
;* 
VARIABLE: 
.%* 
’ 
INC DE 
PUSH DE 
JP NEXT 
;* 
* 
ZERO: DEFW  CNSTNT 
DEFW 0000 
5% 
„® 
ONE: DEFW CNSTNT 
DEFW 0001 
;* 
;* 
MINI: DEFW  CNSTNT 
DEFW  OFFFFH 
® 
;* 
EXEC; ; führt ein Programm aus 
.%* 
’ 
DEFW $+2 
POP HL 
LD E,(HL) 
INC HL 
LD D, (HL) 
EX DE,HL 
IP (HL) 
=“ 
;* 
MATCH: ;‚ vergleicht zwei Worte 
.%* 
’ 
;* ENTRY: TOP - Zeiger auf das Wort 
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_* TOoP-1  - Zeiger auf das andere Wort 
* EXIT: TOP - -1 (TRUE) wenn = 
;* 0. (FALSE) wenn #* 
;* TOoP-1 - Zeiger auf das erste Wort 
;* TOP-2 - Zeiger auf das andere Wort 
m 
’ 
DEFW $+2 
POP HL 
POP DE 
PUSH DE 
PUSH HL 
MATCHO: LD A, (DE) 
cp (HL) 
IR NZ ,MATCHF 
LD B,A 
MATCH1: INC HL 
INC DE 
LD A,(DE) 
CP (HL) 
IR NZ ,MATCHF 
DINZ MATCHI 
LD HL3OFFFFR 
PUSH HL 
JP NEXT 
MATCHF : LD HL ‚0000 
PUSH HL 
JP NEXT 
s.* 
COUT: ; Zeichenausgabe 
. * 
DEFW $+2 
POP BC 
CALL OUTPUT 
JP NEXT 
5; * 
* 
CIN: ; Zeicheneingabe 
 #* 
’ 
DEFW $+2 
CALL INPUT 
LD L,A 
LD H,00 
PUSH HL 
Jr NEXT 
.% 
iR 
DRON: 
;* DRON/DRUCK/DROFF 
.* wird die Prozedur DRON aufgerufen, so wird in die 
A Ausgaberoutine OUTTAB an 2 definierten Stellen 
;„* die Adresse der BIO0S-Sprungleiste ausgetauscht 
ER mit ger Adresse der Routine DRUCK. Dies bedeutet, 
* daß nun bei der Ausgabe eines Zeichens nicht mehr 
% direkt, sondern erst innerhalb von DRUCK die 
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wenn ww ur 
E Ze EZ u Ze 


. Os. 
= 
"u 
= 
- 


KK KK = KK U EEE 


EP EEPPEEPPTERTEEREEE EEE EEE EERTEEEREERFEEF EEE EEFFEEGE 


OUTPT1: 


114 


entsprechende Ausgaberoutine im BIOS angesprungen 
wird. Zusätzlich kann aber nun eine Ausgabe über 
den Drucker erfolgen. Bei Aufruf von DROFF wird 


die alte Adressenkonfiguration wieder 
hergestellt. 

DEFW $+2 

LD HL ‚DRUCK 

LD (OUTTBX+1) HL 

LD (OUTTBY+1),HL 

JP NEXT 

PUSH BC 

CALL 0000 

POP BC 

LD E,C 

LD C,05H 

Jp BTRBSYS 

DEFW $+2 

LD HL, (WARMST+1) 

LD DE,0009 

ADD HL,DE ; HL s= CONSOLE QUTPUT 
LD (OUTTBX+1) ,HL 

LD (OUTTBY+1),HL 

Jr NEXT 


Ausgaberoutine OUTPUT/OUTTAB 

Bei jeder Ausgabe werden alle Register gerettet. 
Dies ist notwendig, um einmal eine schnelle 
Stringausgabe, bei der die Anzahl der Zeichen mit 
übergeben wird, zu ermöglichen, aber auch um die 
Umschaltung auf den Drucker durchführen zu 
können. Insbesondere ist dies aber für die 
Realisierung der Tabulatorfunktion notwendig. 
Immer dann, wenn die Ausgaberoutine OUTTAB zur 
Ausgabe des Zeichens 09 aufgefordert wird, werden 
soviele Leerzeichen eingefügt bis die nächste 
durch 8 teilbare Cursorpesition erreicht ist. 
Dazu existiert der Zähler ZCNT, der die Länge der 
aktuellen Zeile mitzählt. 


PUSH BC 
PUSH DE 
PUSH HL 
CALL  OUTTAB 
Pop HL 
POP DE 


OUTPT2: 


OUTPT3: 


.%* 
’ 
.* 


’ 
OUTTAB: 


OUTTB2: 


OUTTBX: 


NOTAB: 
ZCNTO: 


OUTTB3: 


OUTTBY: 


5 * 
ZCNT: 
* 

5 %* 
INPUT: 
“a 


INPUT: 
INPUTZ: 
# 
EN 
RETURN: 


* 
’ 


.% 
’ 
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POP BC 

RET 

; Sprung zur Ausgaberoutine 
LD AsE 

JP DISCOUT 


; AUSGABE MIT TABULATOR ÜBER DEN BIOS 
; ZEICHEN IN C 

; ZCNT IST EIN ZÄHLER, DER BEI OD UND OA AUF 
; NULL GESETZT WIRD 


LD HL ,ZCNT 
LD A,Cc 

cp 09H 

IR NZ ,NOTAB 
LD C,20H 

LD A,(HL) 
LD B, (HL) 
ADD A,O8H 
AND OF&H 

LD (HL),A 
cp B 

RET zZ 

INC B 

PUSH BC 

PUSH AF 

CALL 0000 

POP AF 

POP BC 

IR OUTTB2 
cp ODH 

IR NZ ,OUTTB3 
LD (HL),O 
IR OUTTBY 
cp OAH 
IR Z,ZCNTO 
INC (HL) 
CALL 0000 

RET 

DEFB 00 

LD c,01 

IP BTRBSYS 
‚ Sprung zum Betriebssystem 
IP DISCOUT 


; wenn keine Ausgabe gewünscht 


RET 
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ws 
OD 
=, 
oO 
u 
m 


ee ee a a eu 
KK EU 


wur u une 


.% 
’ 
DE > 


’ 
WRTOUT: 


wenn ne 
ES Ze Zee Zee = 
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‚ schaltet die Ausgabe aus 


wird dagegen garkeine Ausgabe über den Bildschirm 
gewünscht, so wird der Aufruf von OUTTAB 
innerhalb OUTPUT dadurch unterbunden, daß dort 
die Adresse der Routine RETURN, die sich wirklich 
lediglich aus einem Rücksprungbefehl 
zusammensetzt, eingetragen wird. Die Folge ist 
natürlich, daß die Ausgaberoutinen überhaupt 
nicht erreicht werden. Dieser Effekt ist 
insbesondere im Zusammenwirken mit der Routine 
TWRITEF interessant, die nämlich den Abschluß von 
OUTPUT dadurch verzögert, daß der 
Rücksprungbefehl überschrieben und die Routine 
DISCOUT angesprungen wird, die dann alle 
auszugebenden Zeichen auf der Diskette ablegt. 


DEFW $+2 

LD HL ,RETURN 

LD (OUTPT1+1),HL 
IP NEXT 


‚ schaltet die Ausgabe ein 


DEFW $+2 

LD HL_,OUTTAB 

LD (OUTPT1+1),HL 
pP NEXT 

; sicherheitshalber 


Dies stellt die Schnittstelle zum CP/M 
Betriebssystem dar. Denn hinter LOGIO verbirgt 
sich die Adresse 0005. 


PUSH HL 

PUSH DE 

PUSH BC 

CALL LOGIO 

POP BC 

POP DE 

POP HL 

RET . 


; Ausgabe für Texte, die durch 
; WRITE eingegeben wurden 


Diese Routine gibt die Strings aus, die im 
Compiliervorgang mit WRITE eingegeben wurden. 
Zunächst wird die Adresse berechnet, an der das 
Programm nach der Ausgabe fortgesetzt wird. Diese 


wen uw une ns 
AK KK 


WRTI: 


PPPEENPEENPEENPEENEENEEPPEEPPEERDEEN ER 
KAAKKKKKKRKHK NK 


ASCI: 


ENTRY: 


EXIT: 
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ergibt sich aus der Adresse des Strings auf die 
die Länge des Strings addiert wurde. Diese Summe 
wird dann unter IP abgelegt. Damit ist die 
Fortsetzung des Programmes an dieser Stelle beim 
nächsten Aufruf von NEXT garantiert. Vorher 
allerdings wird noch der Text in einer Schleife 
ausgegeben. 


DEFW $+2 

LD Hl. GEP) 

INC HL ; ZEIGT AUF DEN TEXT 

PUSH HL 

LD C,(HL) 

LD B,00 

ADD HL,BC 

LD (IP),HL ; DORT GEHTS WEITER 
; NACH DEM TEXT 

POP HL 

LD B,C 

INC HL 

LD C, (HL) 

CALL OUTPUT 

DINZ WRTI 

IP NEXT 


‚ verwandelt ASCII-Zeichen 
;‚ in Binärzahl 


Konvertierungs- und Rechenroutinen 
Diese Programmteile sind bekannt und anderswo 
schon oft genug beschrieben. 


TOP - Zeiger auf ein Wort 

TOP-1  - --- 

TOP - -1 wenn konvertiert werden konnte 
D wenn nicht 

TOP-1  - Binärzahl, wenn konvertiert wurde 


Zeiger auf das Wort, wenn nicht 


DEFW $+2 

POP DE 

PUSH DE 

LD A,(DE) 
LD B,A 

LD HL ,0000 
INC DE 

LD A,(DE) 
cp 30H 

IR C,ASC2 
cp 3AH 

IR NC ,ASC2 
SUB 30H 
PUSH DE 

ADD HL,HL 
PUSH HL 
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H * 
BINASC: 


een we us 
E Zuge Ze Ze Ze zu Zu 


CONI: 


CON2: 
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ENTRY: 


EXIT: 


HL,OFFFFH 
HL 


NEXT 

HL ‚0000 
HL 

NEXT 


; verwandelt Binärzahl 
; in ASCII-Zeichen 


T 


TOP-1 


T 


ESIEFESIEFE DEN 
BZ EN 


op 


op 


= 
N 


OD 


- 16 BIT positive Integerzahl 
- Zeiger auf den konvertierten 
ASCII-String 


$+2 

HL ,NUM+6 
B,06 
(HL),OO 
HL 


EHE) JE 


CON3: 


CONS: 
CON4: 
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DE ,NUM+ 1 
A 


(DE),A 
DE 


(DE),A 
DE 


„HL 


(DE),A 
DE 


(DE),A 
DE 
HL 


(DE),A 


(HL),A 
HL „NUM+ 1 
B,05 
A,(HL) 
A,20H 
20H 

NZ ,CON5 
(HL) ,A 
HL 

CON3 

B 
A,(CHL) 
30H 
(HL),A 
HL 

CON4 

HL ‚NUM 
HL 

NEXT 


; diese Zahl wird als 
; STRING ausgedruckt 


DEFB 


DEFW 
POP 
POP 
ADD 
PUSH 
JP 


06,0,0,0,0,0,0 
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SUB: 
;* 
DEFW $+2 
POP DE 
POP HL 
AND A 
SBC HL,DE 
PUSH HL 
IP NEXT 
Ps 
na 
DIv: 
* 
DEFW CODE 
DEFW DIVMOD,POP 
DEFW  CEND 
> 
s % 
MOD: 
. * 
DEFW CODE 
DEFW DIVMOD, SWAP, POP 
DEF CEND 
y* 
;* 
DIVMOD 
A; 
DEFW $+2 
POP BC 
POP DE 
LD HL ‚0000 
DEC BC 
LD A,B 
ERL 
LD B,A 
LD A,C 
CPL 
LD C,A 
LD A,10H 
DIV2: ADD HL ,HL 
PUSH AF 
EX DE,HL 
ADD HL,HL 
EX DE,HL 
IR NC,DIV3 
INC E 
DIV3: POP AF 
IR C,DIV5 
PUSH HL 
ADD HL,BC 
IR C,DIV4 
POP HL 
IR DIV6 
DIVA: INC E 
INC SP 
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INC Sp 
IR DIve 
DIV5: ADD HL,BC 
INC E 
DIve: DEC A 
IR NZ,DIV2 
PUSH DE 
PUSH „ HL 
IP NEXT 
5 * 
== 
MULT 
;* 
DEFW $+2 
POP HL 
POP DE 
LD B, 10H 
LD C,D 
LD A,E 
EX DE,HL 
LD HL ‚0000 
MULT1: SRL & 
RRA 
IR NC ,MULT2 
ADD HL,DE 
MULT2: EX DE,HL 
ADD HL,HL 
EX DE,HL 
DINZ MULT1 
PUSH HL 
Jr NEXT 
; * 
56 
MVBYTES: ; transportiert Bytes 
. # 
’ 
DEFW $+2 
POP BC 
POP DE 
POP HL 
LDIR 
IP NEXT 
8 
A 
RND: 
= 
DEFW CODE 


DEFW  ZUFT,PEEKW 
DEFW PUSH,0031,MULT 
DEFW PUSH, 1870,MOD 
DEFW  PUSH,0001,ADD 
DEFW _ ZUF1,POKEW 
DEFW  ZUF2,PEEKW 
DEFW _ PUSH,0029,MULT 
DEFW PUSH, 1729,MOD 
DEFW PUSH, 0001,ADD 
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DEFW ZUF2,POKENW 
DEFW ZUF2,PEEKW 
DEFW PUSH,0005,DIV 
DEFW ZUF 1 ,PEEKW 
DEFW PUSH,0013,DIV 


DEFW MULT 
DEFW CEND 
..% 
’ 
ZUF1: DEFW VARIABLE 
DEFW 0123 
ZUF2: DEFW VARIABLE 
DEFW 0234 
;_® 
y* 
FORINIT 
.® 
2% Realisierung der FOR-LOQP Schleife 
se Siehe unter Compilerroutinen 
DEFW CODE 
DEFW SWAP ‚INC ,FPUSH2 
DEFW DEC ,FPUSH2 
DEFW CEND 
Fa 
FL 
FORTEST: 
= 
DEFW $+2 
CALL FPOP 
INC DE 
PUSH DE 
CALL FPOP 
POP HL 
PUSH HL 
AND A 
SBC HL,DE 
IR Z ,ENDFOR 
CALL. FPUSH 1 
POP DE 
CALL FPUSH1 
LD HL , 0000 
PUSH HL. 
gr NEXT 
ENDFOR: FOP HL 
LD HL,OFFFFH 
PUSH HL 
JP NEXT . 
.* 
s * 
Ls 
. # 
DEFW $+2 
iD DE ,OFFFFH 
LD HL, (FSTACK) 
ADD HL ,DE 
LD D, (HL) 
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DEC HL 
LD E,(HL) 
PUSH DE 
IP NEXT 

sy R 

,* 

FPUSHT: 

ı#* 
LD ” HL, (FSTACK) 
LD (HL),E 
INC HL 
LD (HL) ,D 
INC HL 
LD (FSTACK) ‚HL 
RET 

Mi 

;* 

FPUSH2: 

i# 
DEFW $+2 
POP DE 
CALL FPUSHI 
JP NEXT 

a; 

z* 

FPOP: 

;* 
LD HL, (FSTACK) 
DEE HL 
LD D,CHL) 
DEC HL 
LD E,(HL) > 
LD (FSTACK) ‚HL 
RET 

 #* 

;%* 

FSTACK: 

Age; 
DEFW $+2 
DEFS ZOH 

Si 

;* 

CR: 

* 
DEFW $+2 
LD C,ODH 
CALL OUTPUT 
L C,@AH 
CALL SUTPUT 
IP NEXT 

E® 

u 

PRINT: 

.%* 


DEFW 


‚s 
8 
m 
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I. u 
a 
zZ 
4 
(22) 


ENTRY: 


EXIT: 


KK Ko 


wu une 


PRNTS1: 


* 
: * 


’ 
PRINT.S.: 


* 


Pe ee ee ee ee ee ee een 
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DEFW PEEKW ,BINASC,PRINTS 
DEFW CEND 


; druckt STRING 


TOP - Zeiger auf den String 
TOP-1 - — 

TOP - u. 

T0P-1  - === 

DEFW  $+2 

POP HL 

LD B, (HL) 

INC HL 

LD C,(HL) 


JP NEXT 
DEF W CODE 
DEFW PEEKW,PRINTS 
DEFW CEND 


; Eingabe für Zahlen 
Eingaberoutinen für Strings (READ.N./READ.S./ 
READ.CH.) 
Alle diese Routinen bauen auf einer gemeinsamen 
Basis auf, die beschrieben werden soll. 
Unter einer Adresse, die unter SYSFIELD+2 
erreichbar ist; wird zunächst ein Byte 
reserviert, in das abschließend die Länge des 
dann eingegebenen Strings geschrieben wird. 
Bekanntlich ist dies dann der 'head' des Strings. 
Bei der Eingabe eines Zeichens wird jeweils 
geprüft, ob es sich um ein BACKSPACE handelt, 
dann nämlich wird die Länge korrigiert und der 
Zeiger (Doppelregister DE) auf das aktuelle 
Zeichen zurückgesetzt, oder ob ein Carriage 
Return eingegeben wurde. Dann nämlich ist die 
Eingabe beendet und das Programm verzweigt zu 
NEXT. Innerhalb des Programmes werden Optionen 
behandelt. So können durch eventuelle Subtraktion 
von 20H aus Klein- Großbuchstaben werden. 


DEFW $+2 

LD A,20H : 

LD (RCH2+5) ,A 

LD DE , (SYSFIELD+2) 
SUB A 

LD (DE),A 


; * 
READ.CH.: 
o) * 


RCHO: 


RCH 10: 


RCH1: 


RCH2: 


RCH3: 


x 3% 
, 
* 


; 
INCHAR: 


= 
’ 


INCHR1: 


IR 


Der RPNL - Compiler für Z-80 Computer 


RCH10 


; liest Zeichen ein 


‚ liest Zeichen ein 
Kleinbuchstaben werden zu großen 


DEFW 


$+2 

A,20H 
(RCH2+5),A 

DE, (SYSFIELD+2) 


HL ; LÄNGE 
DE ; ZEICHEN 


08 ; BACKSPACE ? 


60H ; KLEINBUCHSTABE ? 


20H 
(SYSFIELD+2) ‚DE 
ODH 

Z,NEXT 

(HL) 

(DE),A 

RCH1 


; liest genau ein Zeichen 
; und legt es unter ZEICHEN ab 


$+2 

C,06 
E,OFFH 
BTRBSYS 
A 

Z, INCHR1 
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;* 
ZEICHEN: 


.%* 
’ 


Do 


ee ee ee u we [Two o> 
Pe Ge Ge Ge Ge ze Ze m eG er en 


nm 
m 
xx 38 3 8 


02) 


LD E,A 
LD D,00 
LD (ZEICHEN+2) ‚DE 
IP NEXT 


DEFW VARIABLE 
DEFW 00 


EQ,E0Z,$LT,$GT,$GT$EQ,$LT$EQ,SLTECT 


Veraieic 


Alle diese Vergleichsoperatoren beruhen auf 
demselben Prinzip. Sie vergleichen TOP mit TOP-1 
und legen je nach Ergebnis ein OFFFFH für logisch 
'wahr' oder ein 0000 für logisch 'falsch' auf den 
Stack. Eine gewisse Ausnahme bildet EQZ insofern, 
als der Vergleichswert für TOP nicht vom Stack 
genommen wird, sondern die Konstante Null ist. 
Somit ist auch der Unterschied zu den oben 
beschrieben Prozeduren, wie IFZ,IFNZ. ss 
augenscheinlich. Denn bei diesen erfolgt im Fall, 
daß die gesetzte Bedingung erfüllt ist, sofort 
ein Sprung zu einem gesetzten Ziel, während hier 
lediglich das Ergebnis der Evaluierung auf den 


Stack gelegt wird für eine weitere 
Verarbeitung. 

DEFW $+2 

POP HL 

POP DE 

AND A 

SBC HL,DE 

LD HL ‚0000 

IR NZ,EQ2 

DEC HL 

PUSH HL 

Je NEXT 

DEFW  $+2 

POP HL 

LD A,H 

OR L i 
IR EQI 


nsoperatoren für Strings $EQ.S.,$GEQ.5. 

Der erste Operator benutzt die Routine MATCH, die 
insbesondere bei der Suche in den Namenslisten 
verwendet wird. Wie schon angedeutet, werden 


EEE EEE EP EEP EEE EEN EEE 
KK KKR KK 


GEQI: 


GEQ2: 
GEQ3: 
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dabei zunächst die Längen der beiden Strings 
verglichen und nur bei Übereinstimmung steigt man 
um auf byteweisen Vergleich. 

Der nächste Algorithmus nimmt den längeren als 
Bezugsstring und vergleicht solange, bis ein 
Abbruchkriterium erreicht ist. Und dies kann im 
Fall, daß die Strings gleich sind nur sein, daß 
sie eimmal gleich lang, aber auch noch Zeichen 
für Zeichen identisch sind. 


DEFW $+2 
POP HL 

POP DE 

IP MATCHO 
DEFW $+2 
POP HL 

POP DE 

LD B,(HL) 
LD A,(DE) 
[6=) B 

IR NC,GEQ1 
LD 8,A 

INC HL 

INC DE 

LD A,(DE) 
LD C,(HL) 
cp & 

IR 2,GEQ2 
IR NC , GEQ3 
IR GEQ4 
DINZ GEQ1 

LD HL ,OFFFFH 
PUSH HL 

Ip NEXT 
LD HL ‚0000 
PUSH HL. 

IP NEXT 
DEFW $+2 

POP DE 

POP HL 

AND A 

SBC HL,DE 
SBC HL ,HL 
PUSH HL. 

IP NEXT 
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SGT: 
DE; 
DEFW $+2 
POP HL 
POP DE 
IR SLTI 
;_* 
sy * 
SGTEER: 
sk 
DEFW $+2 
POP DE 
POP HL 
SGTEQ: AND A 
SBC HL,DE 
ccf 
IR SLT2 
50€ 
a ®* 
SLTSEQ: 
Pe. 
DEFW $+2 
POP Als 
POP DE 
IR SGTEQI 
E* 
; * 
SLTSGT: 
:* 
DEFW CODE 
DEFW EQ,NOT 
DEFW CEND 
ER 
ne 
AND: 
> * AND,OR,NOT 
.* Diese Operatoren werden in der vorne 
u beschriebenen Weise auf die obersten Elemente des 
3. * Stack angewandt. Das Ergebnis wird ebenfalls auf 
#* den Stack abgelegt. 
.* 
’ 
DEFW $+2 
POP HL. 
POP DE 
LD A,H 
AND D . 
LD H,A 
LD L,A 
PUSH HL 
IP NEXT 
„* 
‘= 
OR: 
8 
DEFW $+2 
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(6) 


ne Zur 


ie 


KK KK 


.* 


‚ 
. 


R 


, 
SYSFIELB: 


* 


* 


= 
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POP HL 
POP DE 

LD A,H 

OR D 

LD H,A 

LD L,A 

PUSH HL 

IP - NEXT 

DEFW  $+2 

POP HL 

ADD HL,HL 

CCF 

SBC HL ,HL 

PUSH HL 

IP NEXT 

DEEW  $+2 

LD HL, (MIN1+2) 
PUSH HL 

IP NEXT 

DEEW  $+2 

LD HL, (ZERO+2) 
PUSH HL 

IP NEXT 


Diese Funktion wird beim Ausstieg aus dem 
Compiler und Rückkehr zu CP/M aufgerufen. Vor der 
eigentlichen Rückkehr wird der DMA-Bereich auf 
die Voreinstellung von 80H gesetzt. 


DEFW  $+2 

LD DE ‚OO80H 
LD C,1AH 
CALL BTRBSYS 
JP WARMST 


; Beginn des Kodebereiches 


DEFW VARIABLE 
DEFW FIELD 
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Os.» 
Dr x 
ze 


De ee a ee 


OPEN: 


Hl 
DISKFULL: 
.%* 


’ 
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Bei Start dieser Routine liegt die Basisadresse 
des’ zugehörigen DMA-Bereiches auf dem Stack. 
Durch Addition der DMA-Bereichlänge wird zunächst 
ein Zeiger erzeugt, der anfänglich auf den 
sogenannten DMA-Pointer weist, der dann auch auf 
Null gesetzt wird. Der DMA-Pointer gibt die 
aktuelle Stelle innerhalb des DMA-Bereiches an, 
in die nun geschrieben bzw aus der gelesen werden 
kann. In diesem Zusammenhang sei auf die Prozedur 
WRITEWF hingewiesen. Anschließend werden noch 
Zähler im FCB zurückgesetzt und dann dann endlich 
wird die Datei mit diesem FCB geöffnet. wird auf 
der aktuellen Diskette kein passender Eintrag 
gefunden, so wird einer erzeugt. Ist dies aus 
Platzgründen nicht möglich, dann erfolgt eine 
Fehlermeldung. 


DEFW $+2 

POP HL 

LD DE , O080H 
ADD HL,DE 

LD A,00 

LD (HL) ,A 
INC HL 

PUSH HL 

LD DE ‚OOOCH 
ADD HL,DE 
XOR A 

LD B,04 

LD (HL) ,A 
INC HL 

DINZ OPEN 

LD DE,0010H 
ADD HL,DE 

LD (HL) ,A 
POP DE 

LD C,OFH 
CALL BTRBSYS 
cp OFFH ; KEINE GEFUNDEN 
IP NZ ,NEXT 
LD C,16H 
CALL BTRBSYS ‘ 
cp OFFH 

IP NZ,NEXT 
LD C,09H 

LD DE ,‚DISKFULL 
CALL BTRBSYS : 
IP NEXT 


DEFB ODH,OAH, "DISK FULL $' 


FCB2: 


One ss 
19) 
m 


Krk OD 


Eve se 
= 
a ee 


DS Zee EEN EEE 


Ss 
m 
KkkDx* x 
=] 
ns 


wo we we 


m 
zei 
m 


Der RPNL - Compiler für Z-80 Computer 


DEFS 80H 

DEFB 8) ; DMAPOINTER 
DEFB 0, 20H, 20H, 20H 

DEFB 20H, 20H, 20H, 20H 

DEFB 20H, 'RPN',O,0,0,0 

DEFB 0,20H,20H, 20H 

DEFB 20H,20H,20H, 20H 

DEFB  20H,20H,20H,20H,0,0,0,0 
DEFB 0,0,0,0 


Diese Prozedur erzeugt einen Zeiger auf den 
zugehörigen FCB und ruft die entsprechende 
BDOS-Funktion auf. Dadurch wird der FEB auf die 
Diskette geschrieben und die Datei dauerhaft 
gesichert. Darüberhinaushinaus wird der 
DMA-Pointer auf Null gesetzt. 


DEFW $+2 

LD C, 10H 
POP HL 

LD DE ,0080H 
ADD HL ,DE 
LD A,00 

LD (HL) ,A 
INC HL 

EX DE,HL 
CALL BTRBSYS 
IP NEXT 


; lösche den Eintrag 


Diese Prozedur erzeugt einen Zeiger auf den 
zugehörigen FCB und ruft die entsprechende 
BDOS-Funktion auf. Dadurch werden alle Dateien 
auf der aktuellen Diskette gelöscht, auf die der 
angezeigte FCB paßt. 


DEFW $+2 
POP HL 

LD DE ,0081H 
ADD HL ,DE 

EX DE,HL 

LD C, 13H 
CALL  BTRBSYS 
IP NEXT 


Diese Prozedur geht davon aus, daß auf dem Stack 
die Adresse des zugehörigen DMA-Breiches liegt. 
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DEE PET EUER ER 
EEE EEE Zu Zee Ze Ze Ze no 


READOK: 


KK HK TI KU EU 
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Diese wird dann mit der BDOS-Funktion 'SET DMA 
ADDRESS’ dem CP/M mitgeteilt. Damit wird 
erreicht, daß beim nachfolgenden Lesevorgang die 
eingelesen Daten auch dorthin geschrieben werden. 
Abschließend wird mit Hilfe des vom System zur 
Verfügung gestellten Suchkodes ein boolscher 
Parameter auf den Stack gelegt, der angibt, ob 
der Lesevorgang erfolgreich war oder nicht. 


DEFW $+2 

POP DE 

PUSH DE 

LD C,1AH 
CALL  BTRBSYS 
LD C,14H 
POP DE 

LD HL ,0081H 
ADD HL,DE 

Ex DE,HL 
CALL  BTRBSYS 
OR A 

IR Z ,READOK 
LD HL, 0000 
PUSH HL 

JP NEXT 

LD HL ,OFFFFH 
PUSH HL 

IP NEXT 


Die Prozedur selbst setzt lediglich einige 
Parameter, wie den Anfang des DMA-Bereiches und 
einen Zeiger auf den DMA-Pointer. Insbesondere 
aber wird durch Manipulationen an den Aus- und 
Eingabeprozeduren erreicht, daß jedes Zeichen, 
das aus- oder eingegeben wird, an die Prozedur 
DISCOUT übergeben wird. 

Dort wird, nachdem alle Register gerettet sind, 
durch Addition des DMA-Pointers (ACTF2) auf die 
Basisadresse des DMA-Bereiches ein Zeiger auf den 
aktuellen Speicherplatz erzeugt, wohin auch das 
übergebene Zeichen geschrieben wird. Anschließend 
wird überprüft, ob der inkrementierte DMA-Pointer 
schon gleich 80H, das ist die Gesamtlänge des 
DMA-Bereiches, ist. Ist dies nicht der Fall, so 
wird ein EOF-Zeichen (1AH) angehängt. Ist 
allerdings der DMA-Bereich voll, so werden diese 
128 Byte als sequentielle Datei auf Diskette 
geschrieben und der DMA-Bereich durch eine Null 
im DMA-Pointer und dem EOF-Zeichen zu Beginn des 
Bereiches als leer gekennzeichnet. 


DEFW $+2 


ISCOUT: 


we Due 
«Nx x 


DSC1: 
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HL 
(ACTF1),HL 
DE ‚0080H 
HL ‚DE 
(ACTF2),HL 
A,OOH 
(OUTPT2),A 
A,OCDH 


“ (INPUT1),A 


HL ,DISCOUT 
(OUTPT3+1),HL 
(INPUT2+1),HL 
NEXT 


HL, (ACTF2) 
E,(HL) 
D,00 
HL,(ACTF1) 
HL,DE 
(HL),A 
A,E 

A 

80H 

HL 
(HL) , TAH 
NZ ,DSC1 
DE, (ACTF1) 
C,1AH 
BTRBSYS 
DE, (ACTF2) 
DE 


C,15H 
BTRBSYS 
HL, (ACTF1) 
(HL) , 1AH 
A,00 

HL, (ACTF2) 
(HL),A 

HL 

DE 

BC 

AF 


0000 ; AKT. DATEI 


0000 ; AKT. DMAPNT 


133 


Der RPNL - Compiler für Z-80 Computer 


. x 
’ 
e :% 


’ 
TREADF : 


a 
’ 
DEFW $+2 
POP HL ; ZEIGER AUF DMA-BEREICH 
LD (ACTF3) ‚HL 
LD DE ,0080H 
ADD HL,DE 
LD (ACTF4) ,HL ; DMA-POINTER 
LD DE, (SYSFIELD+2) 
POP HL ; ADRESSE DES STRING 
SUB A ; LÄNGE NULL ZUNÄCHST 
LD (DE),A 
LD CHL);E 
INC HL 
LD (HL),D 
PUSH DE ; DE: ZEIGER AUF DAS ZEICHEN 
POP HL ; HL: ZEIGER AUF DIE LÄNGE 
TRCH1: INC DE 
LD (SYSF IELD+2) ‚DE 
LD (ACTLNG) „HL 
LD HL, (ACTF4) 
LD E,(HL) ; DMA POINTER 
LD D,00 
LD HL, (ACTF3) 
ADD HL,DE 
LD A,E 
INC E 
INC A 
cp 80H 
LD A,(HL) 
LD BC,OFFFFH 
IR NZ, TDSC 1 
LD BC ‚0000 
LD E,00 
TDSC1: LD HL, (ACTF4) 
LD (HL) ,E 
cp TAH ; DATEIENDE 
IR NZ ,TRCH2 
LD HL, (ACTF4) 
LD (HL),00 
LD BC ‚0000 
PUSH BC 
PUSH BC 
IP NEXT 
TRCH2: PUSH BC 
LD CHA 
CALL OUTPUT 
LD A,Cc 
POP BC 
cp OAH 
IR Z ,TRCH4 
cp ODH 
IR NZ , TRCH3 
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TRCH21: 


TRCH2O: 


TRCH22: 


TRCH23: 


TRCH3: 


TRCH4: 


C Ver sd 

U OO ZOO DTD>pU 
192) ip (ii 
ES I 


ee 
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HL, (ACTLNG) 


A ; DER STRING BESTEHT 
(HL) ; NUR AUS EINEM CR 
NZ , TRCH2 1 


(HL) ; DANN LEGE EIN BLANK AB 
A,' ' 
DE, (SYSFIELD+2) 


- (DE),A 


DE 
(SYSFIELD+2) ‚DE 

HL, (ACTFA) 

(HL) 

A,(CHL) 

O1H 

Z ,TRCH2O 

80H 

NZ , TRCH22 

(HL) ‚00 

BC ,OFFFFH ; DMABEREICH-ENDE UND 
BC ; SATZENDE 


TRCH23 
BC ,OFFFFH ; DMABEREICH NICHT ZU EN- 
BC ; DE, ABER SATZENDE 


HL, (ACTLNG) 

DE, (SYSFIELD+2) 
(HL) 
(DE),A 


NZ ,TRCH5 
BC ,OFFFFH ; DMABEREICH-ENDE 

BC ; ABER KEIN SATZENDE 
DE, (SYSFIELD+2) 

DE 


(SYSFIELD+2) ‚DE 
NEXT 


0000; AKT. DATEI 
0000; AKT. DMAPNT 


0000 
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.%* 
, 
;# Diese Prozedur setzt die mit TWRITEF angebrachten 
iR Änderungen am Ein- Ausgabesystem wieder zurück. 
,* Zunächst wird hinter der normalen Ausgabe wieder 
_* ein Rücksprungbefehl angebracht, so daß die 
u Prozedur DISCOUT nicht mehr erreicht wird. 
;* während im TWRITEF-Modus die Eingabe als 
® Unterprogramm aufgerufen und anschließend zu 
;* DISCOUT verzweigt wird, wird durch TEND die 
iR Eingabe wieder durch einen Sprungbefehl erreicht 
;* und damit DISCOUT abgeschnitten. 
.%* 
’ 

DEFW $+2 

LD A,OC9H 

LD (OUTPT2),A 

LD A,OC3H 

LD (INPUT1),A 

IP NEXT 
ni 
8 
WRITEF: 
y* 
* Ähnlich wie die Leseprozedur setzt die 
ER Schreibprozedur den aktuellen DMA-Bereich fest 
* und schreibt dann sequentiell auf die Diskette. 
;* Dabei sind wie bei allen BDOS-Aufrufen die 
E geforderten Parameter, hier ist es ein Zeiger auf 
;* den FCB im Doppelregister DE, zu übergeben. 
a 
’ 

DEFW $+2 

POP DE 

PUSH DE 

LD C,1AH 

CALL BTRBSYS 

LD C,15H 

POP DE 

LD HL ,0081H 

ADD HL ‚DE 

EX DE,HL 

CALL BTRBSYS 

IP NEXT 
* 
= 
PRINTF: 
* 
* Diese Prozedur erwartet „auf dem Stack einen 
‘% Zeiger auf einen DMA-Bereich. Dieser Bereich, 
ER also 128 Byte werden auf dem Ausgabemedium 
.* dargestellt, falls nicht zwischenzeitlich ein EOF 
;* (1AH) erkannt wird. 
.* 
, 

DEFW $+2 

POP HL 

LD B,80H 
PRNTF1: LD A,(HL) 
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m 


KK KK FI TI FU KK A 


jw} 
—- 
zo 


ee ee u 


GDIR2: 
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INC HL 

CP 1AH 

JP Z,NEXT 
LD C,A 


CALL OUTPUT 
DINZ PRNTF1 
JP NEXT 


Nach Ausgabe des Textes, der als DATSTRNG 
deklariert ist, wird mit dem FCB DFCB, der 
sämtlich aus Fragezeichen besteht, der erste 
passende Eintrag im Directory der aktuellen 
Diskette gesucht. Bekanntlich paßt zu dem 'wild 
card' ? jedes Zeichen, so daß das System mit 
einem Zeiger auf den ersten Eintrag im Directory 
antwortet. Aus diesem Zeiger kann dann die 
Adresse des zugehörigen FCB im vorgesetzten 
DMA-Bereich ab 80H berechnet und anschließend der 
Dateiname ausgegeben werden. Danach wird mit der 
Funktion SEARCH NEXT in gleicher Weise 
weitergesucht und auch alle gefundenen Dateinamen 
ausgegeben. 


DEFW $+2 

LD DE ,0080H 
LD C,1AH 

CALL BTRBSYS 

LD A,O00 

LD (DIRCNT),A 
LD DE ,DATSTRNG 
LD C,09H ; AUSGABE STRING 
CALL BTRBSYS 

LD A, (ACTDRV) 
INC A 

LD (DFCB),A 
ADD A,40H 

LD CA 

CALL OUTPUT 

LD Be 

CALL OUTPUT 

LD DE ,NEWL 

LD C ,09H 

CALL BTRBSYS 

LD DE ‚DFCB 

LD C,11H 


CALL BTRBSYS ; SEARCH FIRST 
CALL DIRPRNT 


LD A,(DIRCNT) 

INC A 

cp 04 ‚ 
IR NZ,GDIR3 

LD DE,NEWL 
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LD C,09H 
CALL  BTRBSYS 
LD A,00 
CDIR3: LD (DIRCNT),A 
LD DE ,DFCB 
LD- C,12H 
CALL  BTRBSYS ; SEARCH NEXT 
cp OFFH 
IP Z ‚NEXT 
IR GDIR2 
5, * 
DIRCNT: DEFBB 0 
.%* 
4 
NEWL: DEFB  ODH,OAH,' $' 
.%* 
DIRPRNT: LD L,A 
LD H,00 
ADD HL,HL 
ADD HL ,HL 
ADD HL,HL 
ADD HL ,HL 
ADD HL,HL 
LD DE ‚OO80H 
ADD HL ‚DE 
LD 8,8 
DPRNTI: INC HL 
LD C, (HL) 


CALL OUTPUT ; DATEINAME 


. %* 
’ 


LD B,03 
DPRNT2: INC HL 
LD C,(HL) 


CALL OUTPUT ; DATEITYP 


LD B,O6H 
LD Et 
DPRNT3: CALL OUTPUT 
DINZ DPRNT3 
RET 
;* 
DFCB: DE 
DEFB ee a Se DEZ 
DEE 34 er, arg 02" 0,0500 
.%* 
, 
DATSTRNG: DEFB ! Dateien auf dem Laufwerk $' 
.%* 
je 
CDRIVE: 
. 


# Unter der Speicherstelle ACTDRV (im Listing 
* ziemlich am Anfang) steht der Kode des aktuellen 
a Laufwerkes. Wird dazu die Zahl 41H addiert, so 
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a 


wesen we un u 


CDRV2: 


EDRV3: 


RDFN2: 
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entsteht daraus das entsprechende ASCII-Zeichen 
und kann dann mit einem Text (DRMSG1) ausgegeben 
werden. Anschließend wird zur Eingabe des 
gewünschten Betriebslaufwerkes aufgefordert. 
Dabei wird untersucht, ob es sich bei dem 
eingegebenen Zeichen um einen Kleinbuchstaben 
handelt (60H), denn dann muß anders subtrahiert 
werden, als dies bei Großbuchstaben der Fall ist, 
um zum geforderten Laufwerkkode zu gelangen. 


DEFW $+2 

LD DE ‚„DRMSG1 
LD C,09 

CALL BTRBSYS 

LD A,(ACTDRV) 
ADD A,41H 

LD C,A 

CALL OUTPUT 

LD DE ,DRMSG2 
LD C,09 

CALL BTRBSYS 
CALL INPUT 

CP 60H 

IR C,CDRV3 
SUB 20H 

SUB 41H 

JP M,CDRV2 

EP 08 

IR NC ‚CDRV2 
LD (ACTDRV),A 
sr NEXT 

DEFB ODH,OAH, ' Aktuelles Laufwerk: $' 
DEFB ODH,OAH, ' Gewünschtes Laufwerk: $' 


Bei Start dieser Prozedur liegt auf dem Stack ein 
Zeiger auf den zugehörigen FCB. Dort wird 
anschließend nach den CP/M-Vorschriften ein 
Dateiname eingetragen. 


DEFW  $+2 

POP HL 

PUSH HL 

LD DE ‚0082H 

ADD HL,DE 5; HL=FILENAME 
LD B,09 

CALL  IPTX 

cp 1BH ; ESCAPE 
IR NZ ,RDFN15 

Pop HL 

LD DE ,0082H 

ADD HL,DE 
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RDFN14: 


RDFN15: 


RDFN2O: 


RDFN21: 


RDFN3: 


RDFN4: 


RDFNS: 
RDFNE: 


RDFN7O: 


RDFN60: 
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C,RDFN2O 

20H 

08 

NZ ‚RDFN21 

A,B , BACKSPACE 


C,08 ; AUSGABE FÜR BACKSPACE 


„A ; AUSGABE FÜR NORM. ZEICHEN 


E;A 

OUTPUT ; AUSGABE PUNKT 
B 

Z ,RDFNS 

A,' ' 

HL 

RDFNA 

B,03 

IPTX 

1BH ; ESCAPE : NEUE EINGABE 
NZ ,RDFN7O 


NZ ‚RDFNG 1 
A,B 

3 

Z ,‚RDFNG 
C,08 
OUTPUT 


RDFN61: 


IPTX2: 


er 
je} 


EIS SET ET 2 a u 2 7 E52 


ee ee u u ee 


ax 
r 
m 
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INC B 

DEC HL 

LD CHE, 
IR RDFN6 
LD (HL),A 
INC HL 

LD C,A 


POP HL 

IP NEXT 

DEFB ODH, ' Ungültiger Name $' 
LD E,OFFH 

LD C,06H ; DIRECT CONSOLE INPUT 

CALL BTRBSYS 

CP 21H 

IR C,IPTX2 ; SPRINGE BEI SONDERZEICHEN 
RET 

CP 08 ; BACKSPACE 

RET Z 

EP: ZEH >; PUNKT 

RET Z 

EP 1BH ‚ ESCAPE 

RET Z 

IR IPTX 


SCHALTET ALLE FILE-AKTIONEN AUS 


Bekanntlich ist das Ende der Namensliste durch 
eine Null, d.h. einen Eintrag mit der Länge Null 
gekennzeichnet. Normalerweise steht dieses 
Zeichen auch am Ende der Liste. NOFILE trägt nun 
an der Stelle LST2 eine Null ein, wodurch die 
Suche in der Liste hier abgebrochen wird. Der 
Kode sämtlicher Routinen, die dadurch nicht mehr 
ereichbar sind, steht hinter dem der Prozedur 
OPEN. Da es sich bei diesem Kode nun um "garbage' 
handelt, wird die Systemvariable SYSFIELD, die 
den Beginn des Kodebereiches festgelegt, mit 
dieser Adresse geladen. 


DEFW  $+2 

LD HL,OPEN 

LD (SYSFIELD+2) ‚HL 
LD A,00 

LD (LST2),A 


JP NEXT 
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wen wur une ne 


EQU $ 


hier beginnt der 
Variablenbereich 
und anschließend der Kodebereich 


„PHASE CMPEND 


Alles, was jetzt kommt, wird beim Start an das 
Ende des Speichers kopiert und anschließend von 
compilierten Programmen überschrieben. Es handelt 
sich bei diesen Routinen um Programme aus der 
Compilerliste, die lediglich während der 
Compilezeit benötigt werden. Bei Ausführung des 
SAVE-Befehles wird dieser Programmteil nicht 
mitabgespeichert, da er bei der Laufzeit nicht 
benötigt wird. Durch diese Trennung wird einmal 
der Compiler gleichzeitig aber auch die 


abgespeicherten Anwenderprogramme kürzer.-A- 


hier beginnt die Namensliste 
des Benutzers 


NAMENSLISTE 


DEFB 04, 'CODE' 
DEFW TCODE 
DEFB 04 ,'CALL' 
DEFW TCALL 
DEFB te 
DEFW PEEKW 


DEFB g4,'T(B)" 
DEFW PEEKB 
DEFB 02,':=! 
DEFW POKENW 
DEFB 05, 528)" 


DEFW POKEB 
DEFB 03, 'INC' 

DEFW INC 

DEFB 03, 'DUP' 

DEFW DUP 

DEFB 03,'DEC' ; 
DEFW DEC 

DEFB 01,'4" 

DEFW ADD 

DEFB 01, = 

DEFW SUB 

DEFB 03, 'DIV' 

DEFW DIV 

DEFB 01,'*' 


DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
DEFB 
DEFW 
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02, 'OR' 


07 , "PROGRAM' 
PROGRAM 

06 , "OUTPUT! 
OUTPUT 
01,'=' 


04, 'SWAP' 
SWAP 

04, '=(5)’ 
8EQ.S. 
05,'>3=(5)' 
SGEQ.S. 

08, 'PRINT(S)' 
PRINT .S. 
07,'READ(S)' 
READ.S. 

08, 'READ(CH) ' 
READ.CH. 

06 ,' INCHAR' 
INCHAR 

07, "OUTCHAR' 
COUT 

05, 'PRINT' 
PRINT 
03,'NEW' 

NEW 

04, "TRUE" 
TRUE 

05, 'FALSE' 
FALSE 
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DEFR 07, 'DECLARE' 
DEFW DECLARE 
DEFB 07, 'COMPILE' 
DEFW COMPILE 
DEFB 06,'SCROFF' 
DEFW SCROFF 

DEFB 05, 'SCRON' 


DEFW.  SCRON 
DEFB 06," SYSTEM' 
DEFW EXIT 


DEFB 08, 'SYSFIELD! 
DEFW SYSFIELD 
DEFB 07, 'BTRBSYS' 
DEFW BTRBSYS 
DEFB 07, 'ZEICHEN' 
DEFW ZEICHEN 
DEFB 04, 'DRON' 
DEFW DRON 

DEFB 05, 'DROFF' 
DEFW DROFF 

DEFB 04,"LIST' 
DEFW LIST 

DEFB 06 ,' MEMORY ' 
DEFW MEMORY 

DEFB 03, 'RND' 


DEFW RND 
DEFB 04, 'SAVE' 
DEFW SAVE 
LSTZ: 
Fi Die folgenden Befehle können 
* durch NOFILES ausgeschaltet werden 


neues 


DEFB 05, "FILES! 
DEFW GETDIR 

DEFB 08, 'CHGDRIVE' 
DEFW CDRIVE 

DEFB 09, 'DATEINAME' 
DEFW RDFNAME 

DEFB 05, 'READF ' 
DEFW READF 

DEFB 04, 'OPEN' 


DEFW OPEN 
DEFB 05,,"CLOSE" 
DEFW CLOSE 


DEFB 068, "DELETE" 
DEFW DELETE 

DEFB 06, 'WRITEF' E 
DEF W WRITEF 

DEFB 06, 'PRINTF' 
DEFW PRINTF 

DEFB 07, 'TWRITEF' 
DEFW TWRITEF 
DEFB 06, ' TREADF' 
DEFW TREADF 

DEFB 04, 'TEND' 
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DEFW TEND 

DEFB 06, 'ACTDRV' 
DEFW ACTDRV 
DEFB 07, 'NOFILES' 
DEFW NOFILES 
DEFB 00 


ENDE DER 
NAMENSLISTE 
COMPILERLISTE 
DEFB 04, 'CEND' 


DEFW TCEND 
DEFB 02, IF" 


DEFW Ir 

DEFB 04, 'THEN' 
DEFW THEN 
DEFB 04, "ELSE"! 
DEFW ELSE 


DEFB 06, 'REPEAT' 
DEFW REPEAT 
DEFB 05, 'UNTIL' 
DEFW UNTIL 

DEFB 04,'LOOP' 


DEFW LOOP 

DEFB 03, 'FOR' 
DEFW FOR 

DEFB 03, 'END' 
DEFW END 

DEFB 05, 'WRITE' 
DEFW WRITE 
DEFB 04, 'READ' 
DEFW READ 

DEFB 00 


Diese Schlüsselworte sind 
in einer Deklaration erlaubt 


DEFB 03, 'VAR' 


DEFW VAR 
DEFB 04, 'VARF' 
DEFW  VARF 
DEFB 05, 'CONST' 
DEFW  CONST 


DEFB 05, "ARRAY" 
DEFW ARRAY 

DEFB 06, 'STRING' 
DEFW STRING 
DEFB DA, 'DEND' 
DEFW END 

DEFEB 00 


ENDE DER COMPILERLISTE 
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; * 
5 * 
;* KERN 2 
; * 
5 * 
ETLITLE: DEFW CODE 
DEFW PUSH, STRTMS 
DEFW PRINTS 
DEFW CEND 
STRIMS: DEFB 93H 
DEFB ODH, OAH 
‚DEFB ">? RPNL - COMPILER VERS. 1.0 <<! 
DEFB ODH,OAH 
DEFB '>»% Copyright Dipl.-Ing. G. Wostrack <<! 
DEFB  ODH,OAH 
DEFB "7? g<' 
A * 
5 * 
INIT: 
; * 
DEFW CODE 
DEFW ZERO,CFLAG, POKEW 
DEFW GETWORD ‚ENTER 
DEFW CEND 
; * 
; * 
EINGABE: 
; * 
.# Dieser Algorithmus ist dem später zu 
SE; beschreibenden PROGRAM ähnlich. Deshalb sei an 
A dieser Stelle lediglich auf den Unterschied 
* hingewiesen, der darin besteht, daß alle 
x Zahleneingaben in sedezimaler Form bzw deren 
Mi; Repräsentation als ASCII-Zeichen möglich sind. 
8 Die Aufgabe der Konvertierung zur binären 
# Darstellung übernimmt das Programm HEX. 
..%* 
’ 
DEFW CODE 
EIN: DEFW GETWORD ,HEX 


DEFW IFZ,EIN2-1 
DEFW CMPLW 
DEFW SYSFIELD,PEEKW ,DEC 
DEFW SYSF IELD ‚POKEW 
DEFW JUMP ,EINS-1 
EIN2: DEFW SYSNAMES ,PEEKW, LOOKU 
DEFW IFZ,EIN3-1 ® 
DEFW CMPLW 
DEFW JUMP ‚EINS-1 
EINS: DEFW SYSCDICT ‚PEEKW ,LOOKUP 
DEFW IFZ,EIN4-1,EXEC 
DEFW JUMP ‚EINS-1 


EIN4: DEFW SCRON ,PRINTS 
DEFW PUSH ‚ COMPMSSG 
DEFW ERRI 

EINS: DEFW CFLAG ‚PEEKW 
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EIN6: 
“ % 


HEX1: 


HEX2: 


HEX3: 
HEX4: 


ZS 


PEICHER: 
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DEFW IFNZ,EINS-1 
DEFW JUMP ,EINI-1 


DEFW CEND 

DEFW  .$+2 

POP DE 

PUSH DE 

LD A,(DE) 

LD B,02 

cp B 

IR NZ,HEX3 
XOR A 

LD HL , ZSPEICHER 
LD (HL) JA 

INC HL 

LD (HL),A 

INC DE 

LD A,(DE) 

DEC HL 

SUB 30H 

IP M,HEX3 

cp OAH 

IR C ,HEX2 

SUB 07H 

c? DAH 

IP M,HEX3 

cp 10H 

IP P,HEX3 

INC DE 

RLD 

INC HL 

RLD 

DINZ HEX 1 

POP HL 

LD HL, (ZSPEICHER) 
PUSH HL 

LD HL ,(MIN1+2) 
IR HEX4 

LD HL, (ZERO+2) 
PUSH HL 

IP NEXT 

DEFW 0000 


Dieser Vorgang läuft solange, bis EINGABE einen 
Fehler entdeckt, oder aber die zum dem 
Schlüsselwort CEND gehörige Routine TCEND das 
Compilerflag zurücksetzt (auf TRUE). 


DEFW CODE 
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u.“ 
Q 
F 
r 


KK KK TDO KU + 


[p} 
je} 
m 


we u ueueuee weue uene —ue ne 
KK KK KU KO € 


. %* 
’ 
. * 


’ 
KORRSYS: 
.* 


’ 
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DEFW MIN1,CFLAG ,POKEW 
DEFW CEND 


Durch diese Routine wird die Eingabe von 
Sedezimalzahlen in das Programm ermöglicht. Da 
dieser Vorgang einem Compilieren entspricht, wird 
zunächst durch die Routine INIT das Compilerflag 
auf FALSE gesetzt, der zugehörige Programmname 
gelesen (GETWORD) und in die Namensliste 
eingetragen ENTER). Anschließend werden mit 
EINGABE die Daten in den Kodebereich 
übertragen. 


DEFW CODE 
DEFW INIT 
DEFW EINGABE 
DEFW CEND 


Dies ist die dem Schlüsselwort CODE entsprechende 
Routine, die bekanntlich den Programmtyp 2 
erzeugt. Dadurch unterscheidet sie sich von TCALL 
dadurch, daß vor dem Parameterfeld das Kodefeld, 
das aus einem Zeiger auf dieses Parameterfeld 
besteht, einzufügen ist. Dazu wird die aktuelle 
Programmadresse von SYSFIELD geladen, um 2 erhöht 
und dann auf (SYSFIELD) wieder abgelegt. Mit der 
Routine KORRSYS wird ein Sprungbefehl nach NEXT 
an das Kernprogramm angehangen und SYSFIELD 
aktualisiert. 


DEFW CODE 

DEFW INIT 

DEFW SYSFIELD,PEEKW,DUP 
DEFW INC , INC ‚DUP 

DEFW SYSFIELD,POKEW , SWAP 
DEFW POKEW 

DEFW EINGABE ‚KORRSYS 


DEFW CEND 

DEFW $+2 

LD HL, (SYSFIELD+2) 
LD A,OC3H ' 

LD (HL),A 

LD DE ,NEXT 

INC HL 

LD (HL),E 


* 


OMPILE: 
“ € 


oO“ 


DD EEPPEEPPEERTSEPPEENPEEEDEEN EEE EEE 
KK 


, * 
MFCB1: 
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INC HL 
LD (HL),D 

INC HL 

LD (SYSFIELD+2) ‚HL 
IP NEXT 

DEFW  $+2 

LD A,OC9H 

LD (OUTPT2),A 

LD A,UC3H 

LD (INFUT1) ,A 

LD HL,BTRBSYS 

LD (INPUT1+1) HL 
LD HL,NAMES 

LD (SYSNAMES+2) ‚HL 
LD HL,FIELD 

LD (SYSFIELD+2) ‚HL 
IP NSTART 


Die COMPILE-Funktion, die das Compilieren von 
Quell-Programmen aus Dateien auf der Diskette 
ermöglicht, tauscht im wesentlichen lediglich die 
Eingaberoutine, die die Tastatur abfragt, gegen 
eine Eingabe aus, die die Zeichen aus dem 
DMA-Puffer bezieht. 

Bei Aufruf des Schlüsselwortes COMPILE wird 
zunächst ein FCB mit dem gewünschten Namen 
eingerichtet. Anschließend wird zu diesem FCB 
passende Datei geöffnet und die Eingaberoutine 
zur Prozedur READFILE umgeleitet. 


DEFW CODE 
DEFW GETWORD, MFCB1 
DEFW CHGINP 


DEFW CEND 
DEFW $+2 

LD DE ‚0080H 
LD C,1AH 

CALL BTRBSYS 

LD HL, FCBCOMP 
LD DE,FCB 

LD BC ,0024H 
LDIR 

POP HL 

LD DE ,FCB 

LD A,CHL) 
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LNGOK: 


CHINP1: 


KK EU 
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cp 09H 
IR C,LNGOK 
LD A,O8H 
LD B,00 

LD e;R 

INC HL 

LD A,(HL) 
SUB 40H 

LD (DE),A 
INC DE 

LDIR 

IP NEXT 


; CHANGE INPUT 
» vertauscht Tastaturroutine 
; mit Eirgabe von DMA 


DEEW  $+2 

LD DE,FCB 

LD C,OFH 

CALL BTRBSYS 

cp OFFH 

IR NZ,CHINP1 
LD E ,FLERR 

LD c,09 

CALL  BTRBSYS 

IP NEXT 

LD HL, READFILE 
LD (INPUT1+1) ,HL 
%) A,8CH 

LD (DMAPNT),A 
IP STRTCP 

DEFEB 00 


DEFB 'NO FILE $' 


Diese Prozedur liest nun die von CHGINP geöffnete 
Datei sequentiell und schreibt die Daten in den 
Standard-DMA-Puffer (ab 80H). Ein Zeiger auf das 
jeweils aktuelle Zeichen wird durch Addition 
eines DMA-Pointers (DMA-PNT) auf die Basisadresse 
des Puffers bereitgestellt, Immer dann, wenn der 
Puffer vollständig ausgelesen ist, also der 
Pointer auf 80H hochgezählt ist, wird ein neuer 
Sektor eingelesen. Dies geschieht genau solange, 
bis das EOF-Zeicherı (1AH) erkannt wurde. Darın 
wird die Eingaberoutine wieder so umgestellt, daß 
Zeichen von der Tastatur angenommen werden. 


LD A,(DMAPNT) 
CP 80H 
IR NZ,READF2 


READF 1: 


READF2: 


READF3: 


’ 
en 


’ 


5 * 
FCBCOMP: 


* 
GENMSG: 


* 


EEE ZZ 2 ZZ 2 2 ZZ 
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LD DE,FCB 

LD C, 14H 

CALL BTRBSYS 

OR A 

IR Z ,READF2 

LD HL ,BTRBSYS 
LD (TNPUT 1+1) ,HL 
RET 

LD E,A 

LD D,00 

INC A 

LD (DMAPNT),A 
LD HL, 0080H 
ADD HL,DE 

LD C,(HL) 

CALL OUTPUT 

LD A,Cc 

CP OEH 

IR NZ ‚READF 3 
LD A,09 

cp DAH 

IR Z ,READFILE 
CP 1AH 

RET NZ 

LD DE , CDGENMSG 
LD c,09 

CALL BTRBSYS 

_D A,ODH 

JP READF 1 

DEFB '***CODE GENERATED**#$' 


DEFB 0,204,204,20H 

DEFB _20H,20H,20H,,20H 

DEFB 20H, 'PRG',0,0,0,0 

DEFB 0,20H,20H,20H 

DEFB 20H, 20H, 20H, 20H 

DEFB 20H,20H,20H,20H,0,0,0,0 
DEFB  0,0,0,0 


Diese Compilerroutine generiert zur Compilezeit 
alle die Routinen, die während der Laufzeit des 
Programmes nötig werden, um die Eingabe einer 
Zahl zu ermöglichen. 

Auch eine Zahl wird zunächst als ein String 
eingelesen, für den ein Eingabepuffer zur 
Verfügung gestellt werden muß. Dies ge- schieht 
durch Abfrage von SYSFIELD. Unter der Adresse, 
die dort steht, dies ist in aller Regel hinter 
dem Anwenderprogramn, wird dieser String mit 
READ.N. Da dieser String nur vorübergehend 
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were su we nen 
“KK KK 


.x* 
’ 
* 


* 
8 


GETW1: 


GETW2: 


% 
’ 


; * 
SCAN: 


a a ee 


4192 


’ 
GETWORD: 


ENTRY: 


EXIT: 


benötigt wird, wird SYSFIELD sofort wieder auf 
den ursprünglichen Wert zurückgesetzt. Bedingt 
durch die Syntax liegt bei Eintritt in den 
Eingabemodus die Adresse der Variablen auf dem 
Stack, der die eingegebene Zahl zugewiesen werden 
soll. Nach anschließender erfolgreicher 
Konvertierung des Strings in eine 16 Bit-Zahl 
wird dieser Wert dort abgelegt. 


ODE 

USH,SYSFIELD ,CMPLW 
USH „PEEKW,CMPLW 
SH ,DUP,CMPLW 


Ei 


DEFW SH,READ.N. ‚CMPLW 
USH,SYSFIELD ,CMPLW 
SYSFIELD ZURÜCKSETZEN 

DEFW USH, POKEW ‚CMPLW 

DEFW USH ‚ASCBIN ‚CMPLW 

DEFW USH ‚POP ‚CMPLW 


USH , SWAP ‚CMPLW 
USH ‚POKEW ‚CMPLW 
DEFW CEND 


©. 
m 
m] 
= 
uUBD U Ds DUB U UDO 


; holt ein Wort von der Eingabe 


DEFW CODE 

DEFW SCAN 

DEFW IFNZ, GETW2-1 
DEFW READLINE 
DEFW JUMP, GETW1-1 
DEFW CEND 


;‚ verwaltet den Textpuffer 
; bei Eingaben 


TOP - --- 
TOP-1  - --- 
TOP - -1 wenn das Wort gefunden wurde 
DO wenn nicht 
TOP-1 - Zeiger auf das Wort, wenn gefunden 


sonst leer 


Beschreibung: Das erste Byte des Puffers enthält einen 


zähler, der angibt, wieviele Zeichen bereits 
verarbeitet wurden. Das nächste Wort wird an den 
Anfang geschoben und ein Byte, das dessen 
aktuelle Länge angibt, vorangestellt. 


DEFW $+2 

LD HL ,BUFF+2 
LD C,(HL) 

LD B,00 

INC (HL) 


set: 


Se2; 


SE3; 


SC4: 


sc5: 


EADLINE: 


er ne une ae ei Die wie 
KK HKD HK OK 
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IR 2.,SC5 
INC HL 

ADD HL ‚BC 

LD B,C 

INC HL 

INC B 

LD A,(HL) 

OR A 

IR 7,505 

CP [j ' 

IR 2 Sch 

IR Ssc2 

INC HL 

INC B 

LD A,(HL) 

LD DE ‚BUFF+3 
LD E;00 

INC DE 

LD (DE),A 
INC E 

INC B 

INC HL 

LD A,(HL) 

OR A 

IR NZ,SC4A 

LD B,OFFH 

LD A 

CP t LI 

IR NZ,SC3 

LD HL ‚BUFF+2 
LD (HL),8 
INC HL 

LD (HL),C 
PUSH HL 

LD HL,OFFFFH 
PUSH HL 

IP NEXT 

LD A,OFFH 

LD (BUFF+2),A 
LD HL ‚0000 
PUSH HL 

IP NEXT 


; füllt den Eingabepuffer 


Diese Routine ist die Schnittstelle zum Anwender. 
So werden hier alle Eingaben in einem 
Eingabepuffer (BUFF) gesamelt und erst nach 
Erkennen eines Carriage Return (ODH) von der 
später beschriebenen Routine INTERACT 
ausgewertet. Darüber hinaus werden in dieser 
Routine alle Kommentare ausgefiltert, sodaß der 
eigentliche Compiler damit garnicht belastet 
wird. 
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READL1: 


READL2: 


READL3: 


READL4: 


READL5: 


READL6: 


DEFW CODE 
DEFW ZERO 

DEFNW_  BUFF,POKEB 

DEFW BUFF,INC,INC 
DEFW DUP 

DEFW  CIN 

DEFW DUP ‚PUSH,0008 
DEFW IFEQ,READL3-1 
DEFW DUP ‚PUSH, 0009 
DEFW IFEQ,READLA-1 
DEFW DUP,PUSH, ';' 
DEFW IFEQ, READL5-1 
DEFW DUP,PUSH,O0ODH 
DEFW IFEQ,READL6-1 
DEFW SWAP ,POKEB 
DEFW INC 

DEFW JUMP, READL1-1 
DEFW POP,POP 

DEFW DEC 

DEFW_  PUSH,0020H4,COUT 
DEFW  PUSH,O008H ,COUT 
DEFW JUMP ,READL 1-1 
DEFW POP 

DEFH PUSH, 0020H 

DEFW JUMP ,READL2-1 
DEFW CIN 

DEFW PUSH, OOODH 
DEFW  EQ,IFZ,READLS-1 
DEFW POP ,POP 

DEFW ZERO, SWAP ‚POKEB 
DEFV_ PUSH, OOOAH,COUT 
DEFW CEND 


; der Eingabepuffer 


DEFW VARIABLE 
DEFS 80H 


Diese Compilerroutine generiert zur Compilezeit 
die Routine, die während der Laufzeit des 
Programmes nötig werden, „um die Ausgabe eines 
Strings zu ermöglichen. 

Dies ist lediglich die Routine WRTOUT, die schon 
beschrieben ist. Von MVTEXT wird dann noch der 
von SCANWR  bereitgestellte String aus dem 
Eingabepuffer hinter die Routine WRTOUT 
kopiert. 


DEFW CODE 
DEFW PUSH, WRTOUT, CMPLW ; GIBT DEN TEXT 


* 
* 


’ 


3 

MVTEXT: 

nr ENTRY: 
; * 

g* EXIT: 
; * 

i * 

4 * 

;* 


DEEP EEE ES EEPEEREE PER 
KEEKKEKKK K 


—.. 00 
= 
a u 2 2 SE 
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DEFW SCANWR ; AUS 
DEFW IFZ,COMP41-1 ; FEHLER 
DEFW MVTEXT 

DEFW CEND 


; legt Text im Variablen- 
; bereich ab 


TOP - Zeiger auf das Wort 
TOP-1 - -r- 
TOP = === 


Beschreibung: Kopiert Text aus dem Puffer nach 


(SYSYFIELD) und aktualisiert SYSFIELD 


DEFW $+2 

POP HL. ; QUELLE 
LD C,(HL) 5 ANZAHL 
LD B,00 

INC BC 

LD DE, (SYSFIELD+2) 
LDIR 

EX DE ,HL 

LD (SYSFIELD+2) ‚HL 
Az NEXT 


Um TOP und TOP-1 auszuwerten, wird ein IFZ 
kompiliert. Dahinter muß die Sprungadresse 
geschrieben werden, die aber jetzt noch nicht 
bekannt ist. Deshalb wird zunächst eine Null als 
Platzhalter vorgesehen und die Adresse dieses 
Speicherplatzes auf dem Stack zur späteren 
Verwendung gelegt. 


DEFW CODE 

DEFW PUSH, IFZ,CMPLW 
DEFW SYSFIELD,PEEKW 
DEFW ZERO,CMPLW 
DEFW CEND 


Da dieses Schlüsselwort die Sprunganweisung 
abschließt erfolgt bei Nichterfüllung der 
Bedingung ein Sprung an diese Stelle. Somit 
stellt die aktuelle Adresse die in der 
IF-Anweisung benötigte Sprungadresse dar. Der 
Zeiger auf deren Platzhalter wird vom Stack 
genommen und die Adresse dort abgelegt. 


DEFW CODE 
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r 
m 
. 


eu ee u neue se neue ne [Mus ne 


N 


m 
>» 
4 


a a a a a 


Se ee a N a er 


= 
an) 
r 


weuesewenene ur us 
Krk 
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DEFW SYSFIELD,PEEKW,DEC 
DEFW SWAP ‚POKEW 
DEFW CEND 


Die Verhältnisse sind etwas anders, wenn zwischen 
IF und THEN ein ELSE eingefügt wurde. Denn dann 
erfolgt die Programmfortsetzung nicht hinter dem 
THEN, sondern hinter dem ELSE. Dies bedeutet 
einmal, daß in den Platzhalter die nun aktuelle 
Adresse eintragen werden muß, damit bei einer 
Evaluierung, die das Ergebnis false bringt, 
hierher gesprungen wird. Andererseits muß für den 
umgekehrten Fall vor dem Alternativkode ein 
Sprung zum Ende der Bedingungsanweisung (wie bei 
IF) vorgesehen werden, der dann von THEN 
komplettiert wird. 


DEFW CODE 

DEFW PUSH, JUMP ‚CMPLW 
DEFW SYSFIELD ,PEEKW 
DEFW ZERD,CMPLW 

DEFW SWAP 

DEF W SYSFIELD, PEEKW,DEC 
DEFW SWAP ‚POKEW 

DEFW CEND 


Diese wiederholungsschleife arbeitet nach 
ähnlichen Prinzipien wie die IF-ELSE-THEN 
Bedingung. Denn REPEAT legt als Merker für einen 
eventuellen Rücksprung nach der Bedingung UNTIL 
bzw. LOOP seine Adresse auf den Stack. 

Das Ausflicken der Löcher im Befehlskode, das 
eine zweite Phase erspart und auch bei anderen 
Compilern Verwendung findet, wird als 'fixup' 
bezeichnet. 


DEFW CODE 
DEFW SYSFIELD,PEEKW,DEC 
DEFW CEND 


Diese Routine sieht einen Sprung vor, wenn die 
Bedingung als "true ausgewertet wird. Auch hier 
wird die Sprungadresse zunächst durch eine Null 
frei gehalten. 


DEFW CODE 


Bee ueweneue 


ee ee u u ee 


wen u un ur 


oO 


KK KK KK TUE + 


je} 
wi: 


KK KOK K* 
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DEFW PUSH, IFNZ ,CMPLW 
DEFW SYSFIELD,PEEKW 
DEFW ZERO,CMPLW 
DEFW CEND 


Diese Routine generiert zunächst einen Sprung zum 
Anfang der Schleife mit dem dort zurückgelassenen 
Zeiger. Anschließend wird das bei UNTIL bzw 
hinter FOR vorhandene Loch mit der aktuellen 
Programmadresse gestopft. 


DEFW CODE 

DEFW PUSH, JUMP ‚CMPLW 
DEFW SWAP, CMPLW 
DEFW SYSFIELD,PEEKW 


DEFW DEC 
DEFW SWAP ‚POKENW 
DEFW CEND 


Die FOR-LOOP ist insofern etwas komplizierter, da 
sie zur Laufzeit die Laufparameter auswerten muß. 


Die Vorbereitung dazu, dies ist die 
Bereitstellung der Argumente in dem FSTACK, wird 
durch FORINIT geleistet. Die jeweilige 


Evaluierung der aktuellen Parameter übernimmt 
FORTEST. Der Aufwand, einen eigenen Stack für 
diese Werte zu benutzten, rührt von der 
Forderung, FOR-Schleifen schachteln zu dürfen. 
Denn damit schafft man sich die Möglichkeit, 
jeder tieferliegenden Schleife, die 
entsprechenden Werte zuordnen zu können. 


DEFW CODE 

DEFW PUSH ,FORINIT,CMPLW 
DEFW SYSFIELD,PEEKW ,DEC 
DEFW PUSH, FORTEST ,CMPLW 
DEFW PUSH, IFNZ ,‚CMPLW 
DEFW SYSFIELD,PEEKW 
DEFW ZERO ,CMPLW 

DEFW CEND 


; verwaltet den Textpuffer 
;‚ bei WRITE 


Diese Routine wird von WRITE aufgerufen, um einen 
String für die spätere Ausgabe zu erkennen. Dazu 
ist insbesondere nötig, seinen Anfang und sein 
Ende festzustellen (dies erkennt man an den 
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ne Zeichen ' ), um dessen Länge abzuzählen und ihm 
or dann als head voranzustellen. Ein boolescher Wert 
gr wird auf den Stack gelegt, der angibt, ob 
1° überhaupt ein String entdeckt wurde. 
. * 
’ 

DEFW $+2 

LD HL,BUFF+2 

LD C,(HL) 

LD B,00 

INC (HL) 

IR Z ,SCWR5 

INC HL 

ADD HL ,BC 

LD B,Cc 
SCWRI1: INC HL 

INC B 

LD A,(HL) 

OR 

IR Z ,SCWR5 

cp 27H 

IR Z ,SCWRI 

IR SCWR2 

INC HL 

INC B 

LD A,(HL) 
SCWR2: LD DE ,BUFF+3 

LD C,00 
SCWR3: INC DE 

LD (DE),A 

INC (Be 

INC B 

INC HL 

LD A,(HL) 

OR 

IR NZ ‚SCWR4 

LD B,OFFH 

LD A,27H 
SCHRA: ER 27H 

IR NZ ,SCWR3 

LD HL,BUFF+2 

LD (HL) ,B 

INC HL 

LD (HL) ,C 

PUSH HL 

LD HL,OFFFFH 

PUSH HL « 

Ki = NEXT 
SCWHRS: LD A,OFFH 

LD (BUFF+2) ,A 

LD HL ‚0000 

PUSH HL. 

JP NEXT 


& 
LOOKUP: ; sucht ein Wort in den Listen 


PL ZEPPZEVPEENPEERDEERPERRPEEV EEE EEE 
KK KKKKKKEKKHK K 


LOOK1: 


we ww we we uns 


Pe en 


; 


’ 


> %* 
INTERACT: 


u ze 
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Dies ist eine vom Compiler häufig benutzte 
Routine. Denn sie sucht nach einem Wort in den 
Listen. Das Vergleichen der beiden Kandidaten 
übernimmt MATCH. Das Berechnen der Adresse des 
Nachfolgers in der Liste wird mit der Funktion 
FIRST durchgeführt, die die Länge des Kandidaten 
zur Verfügung stellt. Bei erfolgreicher Suche 
liegt unter dem entsprechenden booleschen Wert 
die Adresse des gefundenen Namens auf dem 
Stack. 


DEFW CODE 

DEFW DUP ‚PEEKB 
DEFW IFZ,LOOK2-1 
DEFW MATCH 

DEFW IFNZ ,LOOK3-1 
DEFW FIRST,ADD 
DEFW PUSH, 0002, ADD 
DEFW JUMP ‚LOOK 1-1 


DEFW POP 
DEFW ZERO 
DEFW CEND 


DEFW SWAP ‚POP 
DEFW  FIRST,ADD,PEEKW 
DEEW MINI 
DEFW  CEND 


;‚ ermittelt die Länge 
; des STRING 


TOP - Zeiger auf den String 

TOP-1 - u 

TOP - Erstes Zeichen des String 
(enthält die Länge des String) 

TOP-1 = Zeiger auf den Reststring 

DEFW  $42 

POP HL 

LD EC) 

LD 8,00 

INC HL 

PUSH HL 

PUSH BC 

JP NEXT 


; liest eine Zeile und 
; führt sie aus 


Alle Anwenderprogramme werden aus diesem Programm 
heraus gestartet. Der zugehörige Algorithmus ist 
bereits vorne erklärt. An dieser Stelle sei nur 
darauf hingewiesen, daß bei einem Kompilat eines 
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a 


INT1: 


INT2: 


’ 
READCMD: 


* 
’ 


READC1: 


READC2: 


READC3: 


READCA: 


160 


RPNL-Programmes (darum handelt es sich im 
Assemblerlisting). natürlich keine Wieder- 
holungsschleifen auftreten können. Auf dieser 
Ebene läuft natürlich alles unstrukturiert mit 
gewöhnlichen Sprungbefehlen ab. 


DEFW CODE 

DEFW PROMPT 

DEFW READCMD 
DEFW SCAN 

DEFW IFZ,INT3-1 
DEFW SYSNAMES ‚PEEKW 
DEFW LOOKUP 

DEFW IFZ,INT2-1 
DEFW EXEC 

DEFW JUMP , INT1-1 
DEFW ASCBIN 

DEFW IFNZ,INT1-1 
DEFW PUSH ‚BMSSG 
DEFW PRINTS 

DEFW PRINTS 

DEFW CEND 

DEFW PUSH , OKMSSG 


DEFB ODH, "Not defined: ' 


DEFB 05H,0DH,OAH, "Ok! 


; füllt den Eingabepuffer 

macht Klein- Großbuchstaben 
DEFW CODE 
DEFW ZERO 
DEFW BUFF ‚,POKEB 
DEFW BUFF,INC,INC 
DEFW DUP 
DEFW CCIN 
DEFW DUP ‚PUSH ‚0008 
DEFW IFEQ,READC3-1 
DEFW DUP ‚PUSH , 0009 
DEFW IFEQ,READC4-1 
DEFW BUP,PUSH, "5 ' 
DEFW IFEQ,READC5-1 
DEFW DUP „PUSH , DOODH 
DEFW IFEQ,READCE-1 
DEFW SWAP ‚POKEB 
DEFW INC 
DEFW JUMP ‚READC1-1 
DEFW POP ‚POP 
DEFW DEC 
DEFW PUSH ‚00204 ,COUT 
DEFW PUSH ,OO08H ,COUT 
DEFW JUMP ‚READC 1-1 
DEFW POP 
DEFW PUSH, 0020H 
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DEFW JUMP ,READC2-1 
READCS: DEFW  CIN 

DEFW  PUSH,OO0DH 

DEFW  EQ,IFZ,READCS-1 
READCE: DEFW POP,POP 

DEFW ZERO, SWAP,POKEB 

DEFW PUSH, ODDAH, COUT 


DEFW  _CEND 
ni 
y 8 
CCIN: 
; konvertiert aus kleinen große 
; Buchstaben 
.%* 
1 
DEFW $+2 
CALL INPUT 
cp 60H 
IR C,CCINI 
SUB 20H 
GCEINIE° LD L,A 
LD H,OO 
PUSH HL 
Je NEXT 
Ei 
Fi 
PROMPT: ; druckt 'i' 
.* 
’ 
DEFW CODE 
DEFW PUSH,PMSSG 
DEFW PRINTS 
DEFW CEND 
PMSSG: DEFB O3H,ODH,OAH, "it" 
s ER "if 
y% 
 * 
PROGRAM: ; der Compiler 
.%* 
, 
‘* Dieses Schlüsselwort startet den eigentlichen 
* Cmapiler. Auch dieser Algorithmus ist im Texteil 
.* ausführlich beschrieben. 
.%* 
’ 


DEFW CODE 

DEFW ZERO ,CFLAG ‚POKEW 

DEFW GETWORD ‚ENTER 

DEFW PUSH, CODE ‚CMPLW 

COMP 1: DEFW GETWORD 

DEFW SYSCDICT ‚PEEKN ‚LOOKUP 
DEFW IFZ ,‚COMP2-1 


DEFW EXEC 
DEFW JUMP ‚COMPS5-1 
COMP2: DEFW SYSNAMES ‚PEEKW , LOOKUP 
DEFW IFZ, COMP3- 1 
DEFW CMPLW 
DEFW JUMP, COMP5-1 
COMP3: DEFW ASCBIN 
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DEFW IFZ ‚COMP4-1 
DEFW PUSH ,PUSH,CMPLW 
DEFW EMPLW 


DEFW JUMP ‚COMP5 -1 
COMP4: DEFW SCRON ,PRINTS 
COMP41: DEFW SCRON „PUSH, COMPMSSG 
DEFW ERRI 
COMPS5: DEFW CFLAG,PEEKW 
DEFW IFNZ ‚COMP6-1 
DEFW JUMP, COMP1-1 
COMP&: DEFW CEND 
COMPMSSG: DEFB 2AH,' is undefined. ' 
DEFB ODH,OAH, ODH, OAH 
DEFB ! *%*NO CODE GENERATED***' 
.%* 
= 
; Systemvariablen 
; Beginn der Namensliste 
.%* 
9 
SYSNAMES: DEFW VARIABLE 
DEFW NAMES 
x 
* 
; Beginn der Compilerliste 
* 
SYSCDICT DEFW VARIABLE 
DEFW  CDICT 
ER. 
» 
; Beginn der DECLARE - Liste 
.* 
’ 
SYSDCL: DEFW VARIABLE 
DEFW DECLST 
;_* 
;_* 
CFLAG: ; Compiler-Flag 
.%* 
DEFW VARIABLE 
DEFW 0000 
.® 
= 
END: 
a 
DEFW CODE 
DEFW PUSH ,CEND ,CMPLW 
DEFW MIN1,CFLAG,POKEW - 
DEFW CEND 
= 
 % 
DECLARE: ; der Compiler für Deklarationen 
.%* 
2 
* Entspricht im wesentlichen dem Algorithmus von 
Se PROGRAM. Allerdings wird lediglich DECLARE - 
y#* Liste nach erlaubten Schlüsselworten 
;* durchsucht. 
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oO 
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DEFW CODE 

DEFW ZERO,CFLAG , POKEW 
DEFW GETWORD 

DEFW SYSDCL ‚PEEKW,LOOKUP 
DEFW IFZ,DECL2-1 

DEFW EXEC 

DEFW JUMP ‚DECL3-1 
DEFW SCRON,PRINTS 
DEFW PUSH, COMPMSSG 
DEFW ERRI 

DEFW CFLAG ‚PEEKW 

DEFW IFNZ,DECL4-1 
DEFW JUMP ‚DECL 1-1 
DEFW CEND 


STRING NAME "TEXT! 


wie bei allen nachfolgend beschriebenen 
Compilerroutinen, die im DECLARE-Teil eines 
Programmes aufgerufen werden können, wird 
zunächst der eingeführte Name mit ENTER in die 
Namensliste eingetragen und anschließend der der 
Routine entsprechende Speicherplatz ab der 
Adresse, die zur Zeit in SYSFIELD steht, 
reserviert. Dies ist bei STRING der für die 
Speicherung des zugehörigen Strings notwendige 
Platz. Dem Speicherplatz, der bekanntlich dem 
Parameterfeld eines Kernprogrammes entspricht, 


wird noch das jeweilige Kodefeld 
vorangestellt. 
DEFW CODE 


DEFW GETWORD, ENTER 
DEFW °  VARADR,CMPLW 
DEFW SYSFIELD,PEEKW 
DEFW  INC,INC,CMPLW 
DEFW  SCANWR 

DEFW  IFZ,COMP41-1 
DEFW __MVTEXT 

DEFW CEND 


CONST NAME WERT 


Bei dieser Routine wird das Kodefeld mit CNSTNT 
gefüllt, die zugehörige Konstante zu einer 16 
Bit-Zahl konvertiert und in das Parameterfeld 
eingetragen. 
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DEFW CODE 

DEFW  GETWORD,ENTER ; NAME 
DEFW CNSTADR ‚CMPLW 

DEFW GETWORD,ASCBIN ; WERT 
DEFW IFZ,COMP41-1 


DEFW  CMPLW 
DEFW  CEND 
.# 
e # 
CNSTADR: DEFW _ CNSTNT 
DEFW _ CNSTNT 
.%* 
* 
VAR: 
* 
_* SYNTAX: VAR NAME 
.%* 
u Hier lautet das Kodefeld VARIABLE. Das 
* Parameterfeld wird mit einer Null gefüllt. 
.%* 
’ 
DEFW CODE 
DEFW GETWORD, ENTER 
DEFW  VARADR,CMPLW 
DEFW  ZERO,CMPLW 
DEFW  CEND 
a 
s* 
VARADR: DEFW ENSTNT 
DEFW VARIABLE 
.* 
ir 
ARRAY: 
se 
ee: SYNTAX: ARRAY NAME WERT 
.%* 
’ 
E Auch hier lautet das Kodefeld VARIABLE. Die 
.®* Routine ARR reserviert den angegebenen 
® Speicherplatz. 
.%* 
DEFW CODE 
DEFW GETWORD ‚ENTER 
DEFW VARADR , CMPLW 
DEFW GETWORD,ASCBIN 
DEFW IFZ ‚COMP41-1 
DEFW ARR 
DEFW CEND 
.% 
.#* 
ARR: ; reserviert den Speicher 
.%* 
’ 
DEFW $+2 
POP BC 
LD HL, (SYSFIELD+2) 
ADD HL ,BC 
ADD HL,BC 
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> 
7 


Ba a ee a es ie 
KK KO 


LNG8: 
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LD (SYSFIELD+2) ‚HL 
IP NEXT 


Auch hier wird in das Kodefeld VARIABLE 
eingetragen. Von MFCB2 wird das Muster eines 
DMA-Puffers samt FCB nach (SYSFIELD) kopiert und 
anschließend der gewünschte Namen dort 
eingetragen. 


DEFW CODE 

DEFW GETWORD ‚DUP 

DEFW ENTER ‚VARADR ‚CMPL.W 
DEFW MFCB2 


DEFW CEND 

DEFW $+2 

LD DE,FCB2 

LD HL, (SYSFIELD+2) 
EX DE,HL 

LD BC ,00A5H 

LDIR 

POP DE 

LD HL ,(SYSFIELD+2) 
LD BC,0081H 

ADD HL ‚BC 

EX DE,HL 

LD A,(CHL) 

INC HL 

cp 09H 

IR C,LNGS 

LD A,O8H 

LD B,00 

LD C,R 

LD A,(HL) 

SUB 40H 

LD (DE),A 

INC DE 

LDIR 

LD DE, O0A5H 

LD HL, (SYSFIELD+2) 
ADD HL,DE 

LD (SYSFIELD+2),HL 
IP NEXT 


; Fehlerroutine 1 
DEFW CODE 


DEFW SYSNAMES ‚PEEKW ‚DUP 
DEFW PEEKB, ADD 
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DEFW INC ‚DUP, INC 
DEFW INC 
DEFW SYSNAMES ‚, POKEW 
DEFW PEEKW 
DEFW SYSFIELD ‚POKEW 
DEFW ERR,CEND 

g; * 

5 

ERR: ; Fehlerroutine 2 

ei # 

, 
DEFW CODE 
DEFW PRINTS 
DEFW MIN1,CFLAG,POKEW 
DEFW _ _MIN1,BUFF ‚POKEW 
DEFW NEW 

e* 

.* 

ENTER: ; trägt einen Namen in die 


; Namensliste ein 


DEFW CODE 
DEFW SYSFIELD,PEEKW 
DEFW SYSNAMES,,PEEKW 
DEFW DEC ,DEC ,POKEW 
DEFW DUP ,PEEKB 
DEFW DUP ‚INC 
DEFW INC, INC 
DEFW SYSNAMES , PEEKW 
DEFW SWAP ‚SUB 
DEFW DUP ,SYSFIELD ,PEEKW 
DEFW SWAP ,IFGT,ENT1-1 
EFW DUP ,SYSNAMES ,POKEW 
DEFW SWAP, INC,MVBYTES 
DEFW CEND 
ENT1: DEFW PUSH, ERRMSG 
DEFW ERR 
DEFW CEND 
.: + 
,’ 
ERRMSG: DEFB 11H 
DEFB "Dictionary full !' 
“a 
ı* 
CMPLW: ; trägt ein Wort in den 


; Kodebereich ein 


DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
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CODE 
SYSFIELD ‚PEEKW 
DUP, INC, INC 

DUP ,SYSNAMES ‚PEEKW 
IFGT,CMPI-1 
SYSFIELD ,POKEW 
POKEW 

CEND 


DRNAM1: 


* 
* 


PADR: 


a 


Nero. 


SPADR1: 


DEFW 
DEFW 
DEFW 


DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
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PUSH, ERRMSG 
ERRI 
CEND 


CODE 
SYSNAMES , PEEKW 
DUP, PUSH, NAMES 
IFEQ,LIST2-1 
DRNAM, SPADR, BINASC 
PRINTS,LADO4 ‚SPADR 
PRINT,CR 

JUMP ,LIST1-1 

POP 

CEND 


; gibt die Namen aus 


DEFW 
POP 
LD 
PUSH 
INC 
LD 
CALL 
DINZ 
POP 
INC 


$+2 
HL 
B,CHL) 
BC 

HL 
C,(HL) 
OUTPUT 
DRNAM1 
BE 


; gibt Spaces aus 


DEFW 
LD 
CALL 


$+2 
C ,20H 
OUTPUT 
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DINZ SPADR1 


JP NEXT 
ER 
;® 
LADO4: 
;#* 
DEFW $+2 
LD B,04 
IP NEXT 
:* 
5% 
MEMORY 
;* 
DEFW CODE 
DEFW _ PUSH,MEMMES,PRINTS 
DEFW SYSNAMES, PEEKW 
DEFW SYSFIELD ‚PEEKW 
DEFW SUB,BINASC,PRINTS 
DEFW CEND 
. * 
, ® 
u. 
MEMMES: DEFB OFH 
DEFB ODH,OAH, 'Free Space : ' 
.%* 
+ 
SAVE: 
. * 
,® SYNTAX: SAVE NAME 
;# BESCHREIBUNG: SPEICHERT AKTUELLE DATEI AB 
.%* 
ö DEFW CODE 
DEFW XSAVEI 
DEFW GETWORD 
DEFW  XSAVE2 
DEFW CEND 
i®* 
;® 
XSAVEI1: 
;#* 
DEFW $+2 
LD HL,EXIT 
LD (INTLOOP+6) ‚HL 
LD HL, INTLOOP-1 
LD (STRTCP+1),HL 
LD HL , 0000 ’ 
LD (NSTART-3) ‚HL 
LD (NSTART-2) ‚HL 
LD (INTLOOP+8) ‚HL 
LD HL , (SYSNAMES+2) 
LD E,(HL) 
LD D,00 
ADD HL,DE 
INC HL 
LD E,(HL) 
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INC HL 
LD D,(HL) ; DE:=STARTADRESSE 
EX DE,HL i 
LD (EX+2) ‚HL 
LD A, (ACTDRV) 
LD (FCB),A 
JP NEXT 
;®* 
;®* 
XSAVE2: 
;_* 
DEFW $+2 
; FCB(1...8)=BLANK 
LD A,2OH 
LD B,8 
LD HL,FCB 
xSV21: INC HL 
LD (HL),A 
DINZ xSsVv21 
; FCB(9...11)=COM 
INC HL 
LD HL), 
INC HL 
LD (HL), 'O' 
INC HL 
LD (HL), 'M' 
; FCB(1...7!)=NAME 
POP HL ; LÄNGE UND ORT DES NAMENS 
LD A,(HL) 
AND 07 
LD B,A 
LD DE,FCB 
xSV22: INC HL 
INC DE 
LD A,(CHL) 
LD (DE),A 
DINZ XSV22 
; SET DMA ADRESS 
LD C, 1AH 
LD DE ,0080H 
CALL BTRBSYS 
; DELETE FILE 
LD HL ‚FCB+OCH 
XOR A 
LD B,04 
XSV23: LD (HL),A 
INC HL 


DINZ XSV23 
; ER AUCH NULL 


LD DE ,O010H 
ADD HL ,DE 

LD (HL) ,A 
LD- DE,FCB 
LD C,13H 


CALL BTRBSYS 
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; MAKE FILE 
LD C, 16H 
CALL BTRBSYS 
CP OFFH 
IR NZ ,XSV24 
LD C,09H 
LD DE ,DISKFULL 
CALL BTRBSYS 
JP NEXT 
XSV24: LD HL, (SYSFIELD+2) 
LD DE ‚O100H 
AND A 
SBC HL,DE 
ADD HL,HL 
LD AL 
OR A 
IR 2 ,XSV25 
INC H 
XSV25: LD C,H ; ANZAHL DER BLÜCKE 
LD HL ‚O0 100H 
INC € 
XSV26: DEC € 
IR Z,XSV28 ; BEI NULL --= FERTIG 
LD DE , 0080H 
LD B,80H 
XSV27: LD A,(HL) 
LD (DE),A 
INC HL 
INC DE 
DIANZ xSV27 
; WRITE FILE 
LD DE,FCB 
LD B,C 
LD C,15H 
CALL BTRBSYS 
LD C,B 
IR XSV26 
; CLOSE FILE 
XSV28: LD C, 10H 
LD DE,FCB 
CALL BTRBSYS 
; RESTAURATION DER INT-SCHLEIFE i 
LD "HL ‚NEWSTRT-1 
LD (STRTCP+1) ,HL 
LD HL , JUMP 
LD (INTLOOP+6) ‚HL . 
LD HL ,INTLOOP-1 
LD (INTLOOP+8) ‚HL 
LD HL ,INTERACT 
LD (EX+2),HL 
IP NEXT 
5 + 
RAMEND EQU $ 
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.DEPHASE 

er 

5 * 

MVLSTKRN: 
LD HL,FIELD ; QUELLE 
LD DE, CMPEND 5 ZIEL 
LD BC ‚RAMEND-NAMES ; ANZAHL 
LDIR 
RET " 

Pub.) 

s®* 

SE 
END START 


wen. 
* 


171 


Der RPNL - Compiler 


N 22 28 
3A0O4 0032 ZAO1 
225A 0322 6E03 
0121 2AO1 228B 
02CE 0271 022C 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
8801 235E 2356 
8B01 EB22 8B01 
C3DF 0105 022A 
228B 01C3 DFO1 
2BE5 C3DF 0127 
0O2E1 5E23 56D5 
0143 O2E1 D173 
235E 2356 D522 
0163 O2E1 E3ES 
0173 022A 8B01 
0183 O2E1 7CB5 
C3DF 0195 O2E] 
A7ED CE18 
18D6 5E23 
B202 B202 
2356 0602 
131A 0910 
O0ES5 O1F7 
CD72 2600 
5AO3 03C3 
c391 032A 
6E03 01C5 
C34A 7103 
08E6 B8C8 
FEOD 3600 
C900 c391 
2239 DFO1 
O1ES5 CD05 
2aES 0009 
10F9 01B7 
FE3O FE3A 
195F 19D1 
0121 ESES 
002B EIAF 
57CB 10F3 
0497 ED67 
1323 12ED 


für Z-80 Computer 


5.2 Das Hexdump 


678 AB ED EF 


CDI1B 
221A 
01C3 
01BB 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
228B 
2A8D 
8D01 
1802 
O2E1 
c3DF 
2312 
8B01 
C3DF 
235E 
28EB 
7CB5 
E1A9 
56D5 
0100 
E1D1 
F821 
02C1 
ES5C3 
DFO1 
0100 
D5ES 
29FE 
D4C5 
1805 


182A 
0321 
DFO1 
02ED 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
DIEB 
0173 
2856 
E123 
5616 
0138 
C3DF 
C3DF 
0168 
2356 
2A8B 
2009 
02E1 
C3DF 
8202 
D5E5 
FFFF 
CD35 
DFO1 
C5CD 
1109 
CD43 
0920 
FSCD 
FEOA 


0100 
7103 
0077 
C700 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
5623 
2372 
285E 
E518 
0005 
02E1 
014D 
015D 
02E1 
EB22 
0123 
18EC 
D1A7 
0113 
FFFF 
TABE 
E5C3 
0303 
0003 
0000 
0019 
03E1 
150E 
0000 
28F8 


03C3 4A08 C97D 


8803 
00C 1 
228B 
03D1 
3019 


2143 
DIEI 
O1E1 
D51A 
D630 


0322 
C99D 
4123 
4721 
D529 


10E6 DIES 21FF 


DFOI 
5706 
214D 
1213 
6F77 


EAO3 
1029 
0473 
23ED 
2148 


214D 
8F27 
2B72 
6F12 
0406 


1109 
360N 
C237 
0000 
0000 
0000 
0000 
0000 
008F 
0000 
0000 
0000 
0000 
0000 
56EB 
2322 
228D 
c21F 
C3DF 
D173 
022A 
02E] 
ESES 
8B01 
2322 
9E02 
ED52 
D5C3 
CEOZ 
2010 
DFOI 
DFO1 
2118 
c159 
225A 
DIC1 
207E 
FIEN 
34CD 
0321 
3903 
032A 
4ECD 
0000 
E529 
FREB 
0406 
5F7A 
2871 
13ED 
O57E 


0019 
318B 
O12F 
0000 
0000 
0000 
0000 
0000 
0100 
0000 


Aro.2%.M.c#uuacne 
er A OL IBAN. 1: er IR: BB) 
#.'%."..C_..wB7./ 
%.L:9.3034MG..00.0 
Yırmmana 
Necunuone 
Nass 
Werne m 
Nsusauee 
Hasena 
Keane 
ı Per 
Bea 
Yan ER EN.; 
RB EHUF ..KTHUK I * 
#..K"..%..särH#".. 
Kia a VRR. 
%#"..C_...ate.B..a 
dtrec..’ .a°,.0C-.1 
#.a’HVUC_.;.aQsCc_ 
#.C.aQs#rC_.M.*.. 
ARTHUU"..C_.0.3C_ 
#.c.acel_.K.aeel_ 
BR... .HTHUK". .C_ 
#...aö5ckt..HR".. 
#C_...805 Y.1..a0 
#’mR(N.a).aQ’mRBC 
#.UKHTHVUC_. .UC_. 
#2.2.2.222.2..N.a” 
AHUKIV.aQUe.> ‚GH 
Hut ort 
#.eC_.w.AMS.C_... 
Mr .o&k.el_...1.." 
#2."n.C_.EM..AY.. 
HC rn et 
#n.C_.EUeMC.aQAly 
RCJ.!q.yß. BFF 
#.fxwB8H.EuM..gaA.t 
HB. .6..,B.1x4M.. 
#1...C..CJ.Iü.!z. 
1 ad CH SABEFBAIER N DM 29 18 
#.eUEM. .AQal..*.. 
#HeN...". .aAHuNMS. 
#.7C..7.QU.6!.... 
#P88.8:8.V8U)e))Q 
#._...Q0.f0e!..eC_ 
#.'..eC_.3.!1M...6 
%.r.äa/W..).’_2.’ 
#WK.ä.s'M.str+tqg.H 
#....Mmg. .#mo..mo. 
#.#mo.mow!H...BF 


01 


FEZO 
2147 
E1D1 
DFO1 
5B02 
2FAF 
0938 
D5E5 
DOCB 
C204 
4802 
4EO4 
4802 
1C05 
0D00 
EFO1 
CD79 
6505 
FFES 
5ED5 
7205 
2284 
0000 
0000 
3503 
05E1 
02BF 
9712 
O6ED 
O3FE 
3802 
DC23 
ED>3 
ED52 
B518 
B830 
F321 
D6D1 
18F1 
18F4 
676F 
DFO1 
CAO2 
0611 
F206 
AFO6 
9103 
D1DE 
534B 
0000 
0000 
0000 
0000 
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23 455657 89 ABS ©D EF 


2004 
O4ES 
19E5 
EFO1 
0302 
3E10 
0381 
C3DF 
391F 
c1D1 
1F00 
1805 
C106 
2F02 
6204 
6102 
0513 
DICD 
C3DF 
C3DF 
DICD 
05C9 
0000 
0000 
C3DF 
4623 
0503 
1817 
SBEE 
0820 
0620 
O60E 
3906 
2100 
EF55 
0147 
FFFF 
E1A7 
9406 
EFO1 
E5C3 
C406 
E5C3 
8000 
E111 
0477 
FEFF 
0911 
2046 
0000 
0000 
0000 
0000 


7123 
C3DF 
C3DF 
7404 
7604 
29F5 
1807 
O1A7 
3001 
EIED 
A504 
4102 
6ADA 
4802 
A504 
1602 
D5CD 
6505 
0157 
O12A 
6505 
8605 
0000 
0000 
O1EF 
4ECD 
02D7 
E605 
O6E1 
091B 
ED53 
O61E 


2310 
C2DF 
2C07 
S54c 
0000 
0000 
0000 
0000 


10F5 O47E 
0106 0000 
0159 04D1 
5B02 0302 
C1D1 2100 
EB29 EB3O 
1C3323318 
O4E1 D106 
19EB 29EB 
BOC3 DFO1 
4B02 4E07 
1C05 2FO2 
4802 0100 
0500 6204 
0302 BB02 
7005 1D02 
7905 EIES 
2100 DOES 
0511. FFFF 
8405 7323 
C3DF O12A 
0000 0000 
0000 0000 
A805 DEOD 
D12F 02E8 
3503 10F9 
053E 2032 
3E00 1804 
3712 23 
7EB7 28F3 
EEO6 FEOD 
FFCD 9103 
01BB 0200 
012B ESC3 
D1C3 DAO2 
1A4E B928 
DFO1 2100 
ED62 ESC3 
ATED 523F 
C206 0302 
8806 E1D1 
3FED 62E5 
D806 2AC2 
CD91 0303 
193E 0077 
FC11 1000 
O10E 16CD 
CD91 0303 
4C20 2400 
0000 0000 
0000 0000 
0000 0000 
0000 0000 


F630 
0000 
E1A7 
EFO1 
000B 
012C 
0209 


7723 
0000 
ED52 
7404 
782F 
F138 
1C3D 
7BEB 
ESC3 
1805 
4B02 
1DOO 
1C05 
2F02 
BBO2 
0302 
5228 
O1E1 
0519 
2284 
2856 
0000 
0000 
0O30E 
0503 
OlEF 
EDS5B 
3E20 
E113 
18EF 
0134 
FASF 
06E 1 
4E06 
E1D1 
0418 
C3DF 
8E06 
9E06 
E1D1 
676F 
DOICF 
c3Dr 
BBO2 
110C 
DI0E 
FEFF 
ODDA 
0000 
0000 
0000 
0000 
0000 


10F 948 „wi.u.Budwh.y 
5004 #!1G.el_........P. 
E5SC3 HaQ.eC_.Y.Qa’mRec 
6102 #_.0.t.A...0.t.a. 
ATTI HA... VAR! ...X/6Y 
OCE5 8/03 .)uk)Kd.,q8.e 
20E4 4.8.2...33....= 
2100 Wet_.’.aQ..Jäk!. 
DFO1 #.K9.8..K)kK.ueC_. 
2F02 #B.AQam8C_.0.../. 
0100 AK...%.K.N.JıKı oo 
A504 AN. ..Ar../ Kr 2%. 
4102 4K.A.J.K...N.. A. 
4802 #../.K...Bıs1/.K. 
EAOO #..6.%. 2.3 .d.}.J. 
3005 #0.&...P».+Pr.+.B. 
DECD My. .UMy.ae’mR(C.M 
2IFF 4e.QMe.!..eC_.a!. 
562B #.el_.W....#...Vt 
0509 HrUC_.%*..str#"..1 
2B5E #r .QMe .C_.*..+V+* 
0000 Wr. ara“ eneieh 
BBOO Kenn ne 
OACD Wa sauna nk a «MS. . MM 
02C1 #5.C_.0./.h.?...A 
O12F #.aF#NMS..yC_.0./ 
EE06 #.?...W.> 2..män. 
3213 Irasıtednualat 
CD72 #.män.a..s#rUa.Mr 
FE6O #.8. ..87(8.5.08‘ 
1218 #8.V mSn.8.J_.4.. 
1600 #ö#.....M..?7lz_.. 
D1A7 #mS9..C_.,...=.aQ0 
E17C #mR!.. .teC_.N.ao 
461A #5.0U.2a0C2.8.aQF. 
0910 #868.6#..N9C.8.... 
0181 #s!..eC_.!..eCl_.. 
E1D1 #.Qa’mRmbeC_...aQ 
E1D1 #.q..Qa’mR?.j..aQ 
7CA2 #.t0.3.B...,.306" 
E5C3 #g0eC_.8.aQö2goel 
062A #_.D.a) ?mbeC_.O.* 
DIEI #J.eC_.X.*B.eC_.a 
IB Hirn na ae lu“ 
0019 Hr .au se dw... 
OFCD #/..wi.ö....WwQ. .M 
C2DF #..8.B_...M..B.B_ 
Yu Korean «Mu:lonı..DI 
0000 #SK FULL Suu so. 0. 
OOTG Win are einen arena en 
D000 Hınveoeeununnnone 
0000 Neon nos nennen ne 
00089 Hassan niaunsen 
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rt 23 45 
0780 
0790 
07AO 
0780 
07CO 
07D0 
O7EO 
O7FO 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 
0890 
08AO 
08B0 
08CO 
08D0 
D8EO 
08FO 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
O9AO 
0980 
09CO 
09DO 
O9IED 
O9FO 
OAOO 
OA1O 
OA2O 
OA3O 
DA4O 
DASO 
OAE0 
0A7O 
OA8O 
OA9O 
DAAD 
DABO 
OACO 


0000 
0000 
0000 
0000 
2020 
2020 
0E10 
DFO1 
DFO1 
0019 
Zr 
1922 
0822 
085E 
201A 
0E15 
E1D1 
8000 
D5E1 
2A44 
0000 
0001 
FEOA 
3E20 
JEFE 
0000 
O12A 
DIFF 
cCIC3 
033E 
9103 
7209 
10F3 
0032 
321D 
O90E 
093A 
033E 
CADF 
6F26 
CD35 
0310 
3F3r 
2020 
6D20 
OAOE 
9DOA 
0641 
OA2O 
2020 
2020 
4061 
8200 


0000 
0000 
0000 
0000 
2052 
2020 
E111 
F407 
0408 
EBCD 
FFES 
8708 
4103 
1600 
ED5SB 
cD91 
CIF1 
1922 
13ED 
0919 
1E0O 
0000 
2846 
EDSB 
0128 
1804 
4809 
FFC5 
A208 
E332 
0E15 
E106 
E3OF 
E509 
DACE 
O9CD 
E509 
0032 
0118 
0029 
0310 
F906 
3F3F 
4461 
4C61 
O9CD 
0EO9I 
FASF 
2020 
4061 
2020 
7566 
1906 


0000 
0000 
0000 
0000 
5O4E 
2020 
8000 
E111 
D1D05 
9103 
C3DF 
3E00 
2278 
2A85 
8508 
032A 
c900 
4609 
53EE 
7BIC 
2A46 
C5E5 
FEOD 
EEO6 
D6FE 
OIFF 
EDSB 
ED5B 
0000 
7403 
D121 
807E 
0187 
112D 
4O4F 
3103 
3CFE 
E509 
D9O0 
2929 
F9OE 
D60E 
3F3F 
7465 
7566 
9103 
CD91 
OAFE 
2020 
7566 
4765 
7765 
O9CD 


174 


für Z-80 Computer 


67 89 RE ED ER 


0000 
0000 
0000 
0000 
0000 
0000 
193E 
8100 
OEI1A 
8728 
0129 
B23E 
03C3 
0819 
DE1A 
8508 
0000 
ED5B 
0622 
3CFE 
0973 
C3DF 
2039 
1213 
8020 
FRCS 
EEOS& 
EEO6 
0000 
C3DF 
8100 
23FE 
0911 
DAOE 
CD35 
111D 
0420 
111D 
ODOA 
2929 
2ECD 
20CD 
3F3F 
6965 
7765 
3A2ZA 
O3CD 
0830 
416B 
7765 
777D 
726B 
6FOB 


0000 
0000 
0000 
0000 
0000 
0000 
0077 
19EB 
CD91 
0721 
O8E 1 
033E 
DFO1 
7778 
CD91 
361A 
008B 
EEOG 
4809 
807E 
FEIA 
01C5 
2A48 
ED53 
0B36 
C5OE 
3412 
13ED 
0000 
015B 
19EB 
1ACA 
8000 
O9CD 
0O30E 
DAOE 
0A11 
DAOE 
2020 
1180 
3503 
3503 
3F00 
6E20 
726B 
01C6 
7203 
E632 
7475 
726B 
6E73 
3A20 
FEIB 


0000 
0000 
0000 
0020 
0020 
0000 
23EB 
0E13 
030E 
0000 
2285 
CD32 
FSC5 
3CFE 
O3ED 
3E00 
O8E 1 
E197 
2A46& 
OFF 
200D 
4FCD 
0997 
EEO6 
0001 
OACD 
€578 
S3EE 
4009 
09D1 
CD91 
DFO1 
OEIA 
9103 
3ACD 
11CD 
E609 
12CD 
2020 
0019 
0603 
10FB 
0000 
6175 
2024 
414 
FE6O 
2AO1 
656 
3A20 
6368 
24BD 
200F 


0000 
0000 
0000 
2020 
2020 
0000 
CD91 
CD91 
1401 
E5C3 
0811 
7403 
D5E5 
8023 
5887 
2A87 
2244 
1273 
095E 
FF20 
2AuE 
3503 
BE2O 
2A46 
FFFF 
3503 
B7C2 
06C3 
3EC9 
D5OE 
0303 
4FCD 
CD91 
3A2A 
3503 
9103 
0E09 
9103 
2020 
0608 
234E 
C900 
0020 
6620 
4EOA 
CD35 
3802 
C3DF 
6065 
240D 
7465 
OAE1 
E111 


Honenonenenn u... 
Buroeonnennonne 
Hooısonenaun . . 
Hoouoneccen . 

# RPN. . 

# .uonnnne'. 
#..&. >.wHkM..C 
B-.t.aA2.0.K..M..C 
#_.:.:Q@U..M....Q!. 
#..KM..7C.!..eC_. 


Kst Mari 
#."2.2.23.3M2t.!J 
#."A."x.C_.uEUe*. 
Nuke ıWätB.H6. 
Ra mA... Ms oMmÄ. 
RM te 
#aAgl....:.,&"D.. 
#..."F.män.a..str 
#Ua.mSn."H.#F.*.. 
BRD..d.kBuBısı ca 
He HF.sß. ı#F.6 
#....EEC_.EOMS.yA 
#B.CFB. P9&H..> .4 
#> män...mSn,*F.4 
HBB.C.B. „brr.sE. 


#.*H.män.4.Ex7BS. 
#...Emän..mSn.C_. 


KHAO" anne L.?12> 
#.>C2t.C_.8.QU..M 
#...:Q0!...KM. .C_. 
Ar.a..BHB.J_.0MS. 
Krebse 
R.2e.0 Tun M..3%.L 
#2..F80MS..:MS5..f 
Hesuflvouen ..M. .Mp 
#.1e0.°8 LEE un 
|. Ze Zen) WERE M..B. 
Wl-.4.V.o. E2 
BR) ooonc HN 


HMS..Y. MS. 2. 
#..Yor. M5..äl.?? 
# Dateien auf de 
#m Laufwerk #$N... 
#...M..:%.FAOMS.. 
#.0..M..Mr.BY8.N 
WAzZ_.8.8f2%*%.C_.. 
#. Aktuelles 
# Laufwerk: %.. 
# Gewünschtes 
#Laufwerk: $=.ae. 
Yucca Mo.ßB. “Ara 


DADO 
OAEO 
OAFO 
0B00 
0B10 
0B20 
0B30 
OB40 
0B50 
0B60 
0B70 
0BE&0 
0B90 
OBAO 
OBBO 
OBCO 
OBDO 
OBEO 
CBFO 
0COO 
0C10 
0C20 
0C30 
OCAO 
0C50 
0C60 
0070 
0C80 
0C90 
OCAO 
OCBO 
OCCO 
OCDO 
OCEO 
OCFO 
0ODOO 
0D10 
0D20 
0D30 
OD4O 
0D50 
0D60 
0D70 
0D80 
0D90 
ODAO 
ODBO 
ODCO 
ODDO 
ODEO 
ODFO 
OEOO 
DE1O 


01 


1906 
6038 
CD35 
C411 
0528 
2003 
FEO3 
234F 
2055 
2020 
FFOE 
CörE 
3270 
ACAC 
3A3D 
1602 
4ED4 
034D 
0603 
4752 
3D3B 
023E 
4955 
0605 
5329 
4541 
2106 
4ESA 
0605 
4582 
524 
5953 
ECO6 
4348 
AFA6 
4Fr52 
AICB 
4956 
OAOS 
0543 
0706 
4670 
4541 
5444 
0004 
454E 
4154 
5026 
5752 
5641 
5354 
49UE 
0281 
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0B36 
02D6 
0304 
4B0OB 
063E 
£118 
28E7 
CD35 
6E67 
2020 
O6CD 
1BC8 
C1C3 
C3C3 
4102 
0344 
012D 
4F44 
4i4E 
414D 
0602 
3D92 
0504 
3E3D 
CD05 
4428 
O74F 
8505 
4641 
c907 
4646 
5445 
0742 
454E 
4623 
5979 
0546 
454C 
5245 
Aucahr 
5752 
0907 
4446 
5256 
4345 
DECE 
OAC7 
c703 
4954 
S2EC 
D2C9 
47B4 
C2BF 


2023 
2OFE 
2B36 
0EO9 
2077 
SIFE 
0EO8 
0310 
7D6C 
2020 
9103 
1869 
DFO1 
Oi3F 
053A 
5550 
5704 
6AD4 
4uAA 
D7C8 
303D 
0602 
2337 
2853 
0752 
4348 
5554 
O34E 
4053 
A34AF 
7B03 
4DDF 
5452 
3706 
0304 
CB03 
49uc 
0AO9 
4144 
5345 
4954 
5457 
8908 
2AO1 
4E4u 
0445 
0555 
464F 
45A6 
C904 
0541 
C904 
0503 


10FB 
0820 
2018 
CD91 
2310 


C3DF 
1078 
E77 
O3E1 
F806 


6038, 02D6 


CD35 
D4E1 
7469 
2020 
EEZA 
880B 
0443 
2F02 
3028 
6902 
0344 
0243 
0602 
O6S4F 
4C06 
3C3D 
4150 
295A 
4541 
29EA 
4348 
4557 
4506 
4D50 
0553 
0608 
4253 
0444 
4Cc49 
524E 
4553 
444] 
4602 
DEO7 
4546 
5249 
0454 
O74E 
B9IC3 
4053 
4ES4 
523E 
C604 
5641 
5252 
4445 
0293 


0304 
c3DF 
6765 
2020 
3801 
21FO 
4uF44 
D43F 
4229 
0344 
4956 
52A6 
4F52 
5554 
013C 
9C06 
6102 
0608 
4428 
0506 
4152 
FFC3 
0607 
494C 
4352 
5359 
5953 
5S24F 
5354 
44uch 
8509 
5445 
0804 
0644 
5909 
5445 
454E 
4F46 
0249 
45EC 
494c 
C703 
5245 
5246 
4159 
4E4u 
ODOA 


OIFE 
FEOI 
234F 
18B2 
O3CD 
20FE 
2B36 
010D 
7220 
2020 
CHFE 
0622 
45CB 
2842 
3902 
4543 
6204 
0503 
B606 
5055 
7FO6 
023C 
043D 
5052 
5329 
A94E 
F502 
0454 
4445 
4520 
4F4E 
5346 
9103 
4EOA 
1CCB 
0404 
0843 
49LE 
4F50 
AS4C 
0650 
4627 
44uA 
494uc 


2E28 
28D7 
CD35 
AFCD 
6FOB 
0820 
2018 
2020 
4E61 
2020 
08C8 
EEO6 
C304 
2925 
0349 
1002 
012A 
4E4F 
0750 
5435 
O13E 
3EA2 
2853 
49UE 
E405 
4348 
0550 
5255 
434c 
C406 
8603 
4945 
075A 
0305 
064D 
5341 
4847 
414D 
A54E 
4554 
5249 
0806 
0906 
4553 
C60A 
5245 
O4AC 
4472 
05C5 
0543 
0653 
O0OEF 
2020 


ZDFE 
DEO8 
0310 
3503 
FEB 
1078 
DC77 
2020 
6D65 
241E 
FEZE 
3E00 
4341 
0202 
4EA3 
012B 
A504 
54C2 
524F 
0301 
8C06 
0601 
2953 
5428 
0852 
4152 
5249 
45CD 
4152 
5343 
0653 
4C44 
4549 
4452 
454D 
5645 
4452 
45BB 
FO06 
45F2 
4ES4 
5452 
4143 
860B 
5448 
5045 
AFAF 
C905 
0003 
AFY4E 
5452 
O14B 
2020 


#...6 #.30_.8.(-8 
#HY8.V B. .xB.<(W.. 
#M5..+6 .Lw#OMS.. 
#D.K...M..a.20M5. 
#.C.> wH.x..Mo.ß. 
# .2..B\8.V B. .x 
#B.Ca..MS..+6 „Zw 
#H0MS..TaCc_.. 

# Ungültiger Name 
# %. 
#ur.M..8!8.18.HB. 
AHB.H.i..!p."'n.?. 
#28AC._. .CODEKC.CA 
#LLCC.?/..?KB)%. . 
#:=A..:1=(B)9..INC 
#...DUPi..DEC...t+ 
#N..-W..DIVb. .%#%. 
#.MODJj..CR&. .NOTB 
#. .AND*..OR&..PRO 
#GRAMUWH .OUTPUTS.. 
H=3..0=L..C.2.d0% 
Kr..." 
#1U..SWAPa..=(S)5 
#..7=(5)2..PRINTC 
#S)M. .READ(SId..R 
#EAD(CCH)I,J . „ INCHAR 
#'!..OUTCHARU. .PRI 
#NTS. .NEW.C.TRUEM 
#..FALSEV. „DECLAR 
#E.1.COMPILE D.SC 
#ROFFä..SCRON...S 
#YSTEM_..SYSFIELE 
#1..BTRBSYS...ZEI 
#CHEN?. .DRON...DR 
#OFF#..LIST.K.MEM 
#HORYyYK.RNDJ. . SAVE 
#'K.FILES...CHGDR 
#IVEL. .DATEINAME; 
#..READF...OPENp. 
#.CLOSE*..DELETEr 
#. .WRITEFY. .PRINT 
#Fp..TWRITEF’..TR 
#EADF...TENDJ. .AC 
#TDRU*#..NOFILES.. 
#..CENDPC.IFLF.TH 
#EN“F.ELSEIF.REPE 
#AT.G.UNTIL.G.LOO 
#P&G.FOR>GB.ENDrI. 
HWRITE&F.READ.E.. 
HVARII.VARF$J.CON 
#STRI .ARRAY.J.STR 
#ING4I .DENDrI.o.K 
#..B?osass.?? 
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Ku ee Ze 5 
5250 
2020 
312E 
2043 
706C 
7261 
2020 
2020 
2020 
C941 
023C 
0266 
0266 
0266 
0293 
0602 
30FA 
10F2 
ES2A 
01C8 
DZEF 
O2EC 
C32A 
EEO6 
0321 
22EE 
2CC4 
0124 
0600 
115€ 
OSCD 
7/FCA 
7FC4 
0721 
8000 
28CD 
9BC4A 
5445 
5052 
2020 
06F 6 
0205 
CA4B 
02F6& 
0252 
4EOS 
2028 
0423 
0670 
c621 
24C6 
9C02 
4B02 


4E4C 
2020 
3020 
6F 70 
2E2D 
636B 
2020 
2020 
2020 
0245 
C3F6 
0362 
C366 
C386 
0272 
8820 
BOC3 
BOC3 
CAO2 
026E 
0112 
0641 
EEO6 
C3DF 
9103 
06C3 
1180 
OOED 
4F23 
O00E 
9103 
c321 
FE8O 
9103 
194E 
FEIA 
2A2A 
4uu2A 
4700 
2000 
CA4B 
05F6 
02B5 
CA4B 
C5A2 
0034 
F618 
7EB7 
2371 
0000 
1602 
E5C5 
3B00 


202D 
2020 
2020 
7912 
496E 
2020 
2020 
2020 
2020 
E59E 
CAEC 
C92F 
C92F 
O3BF 
c371 
31Ar 
FEOA 
13ED 
1803 
c941 
C3EC 
0261 
3EC3 
0101 
2275 
0901 
O00E 
BOE1 
7ED6 
OFCD 
C3DF 
0100 
2012 
2275 
CD35 
c011 
2A43 
2A2A 
0000 
0000 
022F 
CA4B 
03F6 
0241 
6571 
2836 
0323 
2004 
E521 
ESC3 
1602 
6902 
9C02 
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2043 
2020 
203C 
6967 
672E 
2020 
2020 
2020 
2020 
CAO3 
062F 
O2AF 
O2AF 
0548 
0224 
2187 
380C 
6F23 
2AC2 
0203 
062F 
0241 
7711 
C43E 
0321 
EFO1 
1ACD 
115C 
4012 
9103 
0121 
4EAF 
115C 
0309 
0379 
CCC4 
4FA4 
2400 
0000 
0000 
02F6 
02EC 
CA4B 
02F6 
0246 
2309 
O47E 
O6FF 
FFFF 
DFO1 
6902 
4802 
05C6 


4FAD 
2020 
3COD 
6874 
2047 
3c3c 
2020 
2020 
203C 
O2EF 
021D 
0781 
c781 
0237 
C303 
C377 
D607 
ED6EF 
02E5 
O2EF 
0269 
0223 
DFO1 
0932 
00CO 
45C5 
9103 
007E 
13ED 
FEFF 
89C4 
2046 
O0DE 
5F16 
FEOE 
0EO9 
4520 
2020 
2020 
0000 
CA4B 
06F 6 
025B 
CAO3 
C503 
4123 
1127 
3E20 
ESC3 
EFO1 
FEO2 
0900 
6902 


5049 
5645 
OA3E 
2020 
2E20 
ODOA 
2020 
2020 
3CEF 
0145 
O2EC 
024C 
025C 
C96A 
0277 
2377 
FEOA 
10E1 
C3DF 
0115 
0216 
E3E9 
2373 
3E03 
2264 
2AC4 
21E1 
FEOI 
BOC3 
200B 
2275 
A9LC 
14CD 
003C 
2002 
CD91 
4745 
2020 
2020 
OOEF 
0269 
CA4B 
O2F6 
O2EF 
0257 
D47E 
C6OE 
FE2O 
DFO1 
c002 
6902 
9C02 
4B02 


4045 
5253 
3E20 
2020 
576F 
3E3E 
2020 
2020 
O1CO 
C575 
0641 
C3F6 
C3CC 
CASE 
c3D1 
131A 
FABO 
E12A 
0100 
0323 
0216 
C303 
2372 
3EC3 
c921 
58C4 
c411 
3802 
DFO1 
1180 
033E 
4520 
9103 
327F 
3E09 
033E 
4E45 
2020 
2020 
0148 
02F6 
024} 
CA4B 
0155 
c521 
B728 
0013 
20EF 
3EFF 
24C6 
4802 
FBC5 
ODOO 


5220 
2E20 
2020 
4469 
7374 
2020 
2020 
2020 
026E 
0381 
0271 
cA71 
0271 
c92F 
D5S1A 
2BD6 
C3FE 
B7C3 
O0EF 
C303 
0269 
O2EB 
2322 
3274 
960B 
0302 
5C00 
3E08 
5ACA 
CAOE 
8032 
Z243A 
B728 
C421 
FEDA 
0DC3 
5241 
2020 
2020 
OZEC 
CA4B 
O2F6 
0261 
€593 
26C6 
2DFE 
120C 
2126 
3226 
3902 
0800 
6902 
9C02 


#RPNL - COMPILER 


# VERS. 
#1.0 k..)) 

# Copyright Di 
#pl.-Ing. G. Wost 
#rack 2 

* 

* 

# <0.8.n 


#IA.EE.J..o.EEuC. 
HCl. /r le. Aıq 
#.fCb1I/./G..LCudg 
#.C#1/7.76..ÖCL.q 
8.fC..?.K.71jJnI/ 
#...rCqg.%C..wCQU. 
#..8 17! 7Cutw. + V 
#H8z8CB.8.V.8.z8CB 
#.r8C..mottmo.aa#7?C 
Herd)...*B.eC_...o 
#.H.nIA...0..C#C. 
%.05.C1./ lernen 
#%.1.A.2.A.#CiC..K 
Hcan.>Cw._ .Ksärh" 
#n.C_..D>12>.>C2t 
4.'!.."u.1.8"d1!.. 
#"n.C..o.EE*DXD.. 
%,D.....M..!2D.d. 
%.%.m82.0.88.8.). 
#..O#BV8E..meC_.ZD 
#2.80...M..Bß. ...D. 
#.M..C_.!.D"u.>.2 
#.DC!..NO FILE $ı 
%.DB. ..8...M..7 
%.!. ."uslo..f2.D1 
Ko. M5.YB. ıdıB. 
R®CMB.8.1LD..M..>.C 
#.D***CODE GENERA 
HTED*##®. 
er 
ren FL SEN | 
h, vVIK./.vJK.1.vJK 
%.U.0JK.1.vJK.A.v 
HIK.5.VvJK.A.vJK.a 
#.vJK.A.vJ..0.UE. 
#.RE"Eq.FE..WE!&F 
HN. .AC65H.AR.B7C-B 
HK H.B.Fecsee 
H.HB7 ...>B o!'& 
AFpttge!..eC_.?.2& 
#F!..eC_.0.8.%F9. 
HBF....1.ßB.i.K... 
#..eEi.K.....äEi. 
WKayesns Files 


01 


11C6 
1002 
AFCS 
ODOO 
3902 
0000 
0000 
0000 
0000 
0000 
0000 
1220 0000 
1230 0000 
1240 9B03 
1250 E14E 
1260 DFO1 
1270 F6CA 
1280 0302 
1290 F6CA 
12A0D EFO1 
12BO F6CA 
12C0 7102 
12D0 4102 
12E0 1D02 
12F0 2FO2 
1300 3428 
1310 1803 
1320 B720 
1330 71E5 
1340 00E5 
1350 0293 
1360 02B0 
1370 D42F 
1380 C3DF 
1390 C92F 
13A0 0393 
1380 022F 
13C0 6665 
13D0 (639 
13E0 0208 
13F0 0869 
1400 009C 
1410 025B 
1420 0271 
1430 0248 
1440 0261 
1450 7203 
1460 O14B 
1470 D26E 
1480 0566 
1490 C962 
14AO C9B5 
1480 0228 


=; 
Er 
Q 
oooo0000000 
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6102 
4B02 
5B02 
3B06 
4802 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
F6CA 
0600 
EFO1 
0302 
EFO1 
6102 
ECO6 
ECO6 
F6CA 
0302 
4802 
C002 
3623 
2304 
0406 
2IFF 
c3DrF 
02D2 
C75B 
02C8 
OIEF 
O2AF 
02F2 
C3BF 
643A 
0224 
009C 
024B 
O2A4 
021D 
0242 
020D 
0239 
FE6D 
02D3 
C941 
C92F 
c92F 
0381 
0986 


3902 
2000 
4802 
8102 
OAOO 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
62C7 
O3ED 
4B02 
EFO1 
4802 
ECO6 
2F02 
2F02 
6102 
EFO1 
2E05 
FECA 
0941 
7E11 
FF3E 
RFE> 
O1EF 
E7E1 
02C0 
0203 
01C9 
0781 
C748B 
0503 
2005 
0616 
0278 
023B 
C861 
024B 
C85B 
003B 
024B 
3802 
CEBF 
0245 
O2AF 
O2AF 
021C 
O3BF 


1602 
F502 
2000 
05C6 
F502 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
8102 
5SBEE 
8102 
ECO6 
7102 
2F02 
1D02 
c002 
FECA 
4802 
FECA 
0302 
2304 
27C6 
ZIPE 
c3DF 
0169 
C74E 
0203 
02E3 
C835 
0208 
0221 
020D 
ODOA 
0216 
(869 
D09C 
0239 
0220 
024B 
0681 
020A 
D620 
0503 
£59E 
c781 
c781 
C94B 
0586 


7102 
4B02 
7102 
5802 
0302 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
20C9 
D6ED 
FECA 
2F02 
FECA 
1002 
0302 
F6CA 
ECO6 
2005 
4802 
6407 
7EB7 
OEOO 
2720 
O13E 
0225 
044B 
0261 
CIE? 
(855 
CEcC 
caBr 
4EeF 
4F6B 
0269 
024B 
0298 
0216 
OOF5 
0220 
0298 
DOF5 
6F 26 
0203 
CA4B 
O2FA 
020A 
024B 
034B 


AFC5 
0800 
DBC5 
5802 
8802 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
B8C6 
BOEB 
ECO6 
1002 
ECO6 
6102 
EFON 
0302 
2F02 
FECA 
9302 
2126 
282D 
1312 
EF21 
FF32 
0281 
0202 
025B 
4ED6 
C581 
0271 
o5BF 
7420 
ZIEF 
0287 
0209 
C869 
027‘ 
0248 
0071 


5802 
F502 
FEO2 
c002 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
EFO1 
0302 
22EE 
2F02 
6102 
2F02 
4102 
4B02 
EFO1 
1002 
ECO6 
FECA 
C64E 
FE27 
0CD4 
26C6 


5B02 
7102 
4802 
6102 
0000 
D000 
0000 
0000 
0000 
0000 
0000 
0000 
4802 
BAC6 
06C3 
C002 
4102 
C002 
0302 
9302 
4802 
6102 
2F02 
ECO6 
0600 
28F6 
237E 
7023 
2100 
C7D4 
0471 
C74E 
ESC5 
C862 
C785 
024B 
6669 
0224 
024B 
028E 
020D 
C85B 
DOFS 
C8FE 
02CO 
C8CD 
OIEF 
0O1CO 
CA45 


i 0228 


0228 
cA71 
CASE 


#.Fa.9...9./EA.A. 
#..Kı »U.K...U.Q. 
#/EA.K. .q.AEß.K. 
#..3.:..FA.A.8.2. 
KI.Kı Use efernnn 


unsern 
Horıneuenıe ... 
LEERE UNE ETR Ale 
Hırsıaı ER PRRERCRTROHCR TR 
Messe PER Er ee 
ı BRPEIFRFEEE SP PE SI ErEFaR, 

Hoc Sana nen 
Koroeosonuune o0.K. 
#..vJbG.. I18F..:F 


#aN...män.mdk"n.C 
#_.0.K...0J1.,/7.8. 
#VJ..0.1./ rd. 
#..0.K.9.vJ1./7.8. 
#vJa.1)./crsdıfhı.. 
#0.1./.22..0.cK. or 
#vJ1./7.8.0J..0.K. 
#q.vJa.vJl./...2. 
#A...0.K. ıvJl./. 
#..K...vJK...vJ1. 
#/.8.vJ..dG!&FN.. 
RIC6H.AR.B7C-B’Cv 
HB Fersen HB 
#7 2..2’B’ o!'&Fp# 
#ge!..eCl_.>.2&F!. 
#.eC_.0.1.%...L6T 
#...RGaGN.K...N.g 
#.86A.8...a.&.a6N 
#./.H...cBaN..#eE 
#C_.o.IHSHUE...Hb 
#1/7./6...HL.9.r65 
#...r6K.!H?.?...K 
#./H?....Not defi 
Aned: ...OkK!o.8.% 
#F9.#F....i1.7Hi.K 
Pe 3. | Ge 
#Hi .K.5j....Hi.K.. 
#...$Ha.9...9.BHA 
Asse rat 


HK. c sc HA.d.$ 
#.2.9.K...u...9M 
#r.B‘8.V o&.eC_.o 
#.K.SH?..... .to.8 
#.nlA.EE.JK.o.vJE 
HEFI/./6..zHL.g.( 
#1b1/./G...Ivdq.( 
#15....1IK.K.vdodg 
#.C1..?...K.71jJ)n 
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01 23 48 
c92F 
7320 
202A 
5241 
BB02 
C802 
45C5 
A5C9I 
9302 
1550 FCC9 
1 8102 
FECA 
B202 
0302 
45C5 
EEO6 
9ECA 
EEO6 
EB7E 
13ED 
EFO1 
1602 
0302 
4102 
1D02 
62C9 
A702 
0302 
6F6E 
2F02 
13CB 
0302 
3FCB 
A605 
4ECD 
23E5 
CD35 
014B 
O4E8 
7061 
D2AD 
0000 
0019 
C3DF 
2336 
0023 
6800 
O00E 
0911 
ATED 
1711 
0E15 
212A 


0293 
756E 
2A2A 
5445 
49C2 
6EC9 
6AC9 
8603 
B1C9 
FECA 
20C9 
45C5 
EFO1 
B202 
B503 
0909 
FCCI 
EBO1 
23FE 
8011 
62C9 
1602 
EFO1 
FFC3 
4102 
2F02 
DBCA 
4802 
6172 
6902 
ECO6 
EFO1 
44CB 
7102 
3503 
D578 
0310 
0291 
O3BF 
6365 
CB21 
2206 
235E 
O1DF 
4323 
1S7E 
AFO6& 
13CD 
2C07 
5229 
8000 
CD91 
0122 


0234 
6465 
4EAF 


BB02 
4102 
2F02 
BFOS5 
7102 
ECO6 
B8C6 
B503 
45C5 
BBO2 
8102 
22EE 
F6CA 
A500 
0938 
A500 
2F02 
62C9 
BFO5 
EFO1 
6902 
6102 
6902 
EACA 
7920 
1602 
4102 
62C9 
66CB 
21CB 
10F9 
ED44 
F9IC3 
CBBF 
0503 
203A 
DFO6 
0122 
2356 
CB3E 
364F 
1210 
0477 
9103 
CD91 
7DB7 
0680 
0348 
2201 


Au2R- 
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c971 
6669 
2043 
2A2A 
0000 
0302 
AFC7 
4B02 
89C9 
2F02 
0302 
8102 
9ECA 
EFO1 
2009 
06C3 
34CA 
EDBO 
023E 
2AEE 
6902 
4102 
C802 
ECO6 
2502 
5704 
62C9 
8CCA 
6675 
1602 
4102 
2F02 
E803 
5B02 
0123 
CE1A 
DFO1 
0562 
020F 
20EF 
2233 
0701 
EB22 
2006 
2336 
FAOE 
2310 
OE16 
03C3 
2801 
7E12 
18E6 
2171 


02E8 
6E65 
4Fu4 
BBO2 
EFO1 
EFO1 
8102 
37C9 
0302 
1602 
EFO1 
20029 
FCEI 
4505 
16CA 
DFO1 
0302 
D12A 
0806 
0619 
2502 
2F02 
6EC9 
2F02 
6902 
6902 
4102 
0302 
6CEc 
6902 
0302 
6902 
BFO5 
0302 
5E23 
47C3 
74CB 
C92F 
ODOA 
O1AB 
0121 
2235 
3901 
0821 
4DE1 
1A11 
FC1] 
cD91 
DFO1 
Z44C 
2313 
0E10 
0222 


C803 
642E 
4520 
00CO 
4802 
c002 
98C9 
6ACA 
EFO1 
1602 
45C5 
FECA 
FECA 
9ECA 
0302 
EFOI 
36CA 
EEO6& 
OO4AF 
22EE 
4EO4 
ECO6 
4102 
62C9 
1602 
ECO6 
6102 
1144 
2021 
62C9 
4B02 
4B02 
72CB 
46CB 
5623 
DFO1 
0604 
OZEC 
4672 
CB45 
2C01 
O12A 
3A2A 
5C00 
7EE6 
8000 
1000 
O3FE 
2AEE 
2100 
10FA 
115C 
3301 


022A 
ODOA 
4745 
BB02 
0302 
6EC9 
cCc02 
6EC9 
45C5 
F6CA 
9ECA 
0302 
cC002 
eis 
18CA 
4505 
1139 
0181 
7ED6 
06C3 
1602 
4102 
C802 
2F02 
1602 
2F02 
1602 
6963 
EFO1 
2F02 
E4CA 
00CO 
66CB 
E146 
E562 
68CB 
C3DF 
062F 
6565 
C5DD 
2222 
64C9 
0132 
2377 
0747 
CD91 
1977 
FFZO 
0611 
O10C 
115C 
O0OCD 
212C 


2069 
ODOA 
4E4S 
FBC1 
FECA 
4102 
7102 
2F02 
9ECA 
62C7 
E8C9 
B202 


#1/...41q.hH..%* i 
#s undefined..... 
# ***NO CODE GENE 
HRATED*##;..8;.8A 
#3.1B3...0.K...vJ 
#H.nIA...0.8.nIA. 
#EEJ31/./6...1ILl.g. 
#71..?.K.71jJnI/. 
#..1lq..1..o.EE.J 
#651vJ1l./.22..VvJb6 
#.. 18F..o.EE.Jhl 
#VJEES... IvJ..2. 
#2.0.EE.JölvJ&.vJ 
#..2.3.0.EE.JölvJ 
#EES... 1.J...JA* 
#An..."n.C_.o.EEi. 
#.J61vJ4J..69.9.%* 
#n.K.4.mßQän..... 
HKERB.8.?...0BVE, 
#.md .%.*n.."n.C_. 
#0.bI/.i1.%.N...i. 
#....bBIA./.1.A..J 
#..0.?.H.nlA.H.$F 
#A..C0.1./.bI/... 
= a A EEE 
#b1/.a.W.1.1./.2. 
#’.Adi.blA.a...8. 
#..K.4J.J...Dicti 
#onary full '!o.1l. 
1 a Ren 00 =} P ge 
#.K1.A.A...K.dJjJ 
#..0.bI/.i.K..8.. 
#?PKDKfKh.?.rKtKS. 
#&.9.'Kä...FKarEH 
#NMS. „yAt’HVHebk# 
#H#euxmdF.GC_.hK. 

#M5..yC_.tK..C_.0o 
#.K..K?.bI/.1./.W 


#pace : o.+KEEÜK. 
1 Pi „GEBE DE Zen 2 Zn 
Hua" .,"r5.,8dl*. 
H..HTHUK"9.:%.20, 
#C_._-K) ..18.Hw.ö 
HRSCHSOH6Maßt .6G.5 
HAB rZunan Me. 
#h./. ww 
#2. MM 
Hurs Mi. Co Mr 
HMRIGTC. SL 00. 
Huren Bıi..Zzud.h 
#..M..H.f...0.M.. 
IR EI 2 WPale< DE BEE ae 


0 
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Anhang 1 


Syntaxdiagramm der wichtigsten Befehle und Strukturen 


T sennessmeeucen I 
sei I N 
nn aus | 
---I ANWEISUNGSTEIL I---  1---1 ANWEISUNGSTEIL I--- 


I 1 
ee N sea m 
Baia SC WER je EINFACHER ZEIER 
TS Nee N Se ee 
Di u nee Busen I 
1-3 X BASTI >= I EINFACHER ZEIGER I----I ZAHL 
Ü m We | erree 
Tu. eine I 
I-> (ARRAY )- I 
er I 
0 See | een Sun I 


-> ( STRING )----I EINFACHER ZEIGER I----I TEXT I----- 
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FRNEN I ANWEISUNG u ee a 
Senne I 
Bene I ANWEISUNG I-------- 
I OPERAND I 
BE I ZAHL I---------------1---------3 
DT sau 
ee 1 
Es); I AUSDAUCK Ikea I 
lee I 
l - seems 1 


EDEN, I ZEICHEN a a 
Mer 
Brass I ZEICHEN I-------- 
I ZEICHEN I 
seuseuesse T BUCHSTABE Tea-+----- You 
ee 
u ee I 
Ts TIEFER Io T 
a ee ” 
sun nee I 
--> I SONDERZEICHEN I------ 
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-- ( " )=---I ZEICHEN I-----------------=--1---( 1)---3 
ee nee T ie 
LT Sees 
---I ZEICHEN I--- 
I ZAHL I 
une I ZIFFER Zu er 
---- I ZIFFER I-------- 
I ZEIGER I 
---- V I 
---I DOPERAND I------------------------------- +-?> 
= I 
I---------- i ----------------- i ------------------ >l 
I ------- VI mn VI --------------- I 
-IOPERANDI---IEINST PRÄDIKATI---IZWEIST PRÄDIKATI- 
I AUSDRUCK I 
----- I ZEIGER N a ee see aaa 
------ I 
I =------- 2202242 I 
---I ZEIGER I---I VERGLEICHSOPERATOR I--3I 
I #=--2222 4224224404424 I 
a0 ---- I 
IE NEENE: en 
I BUCHSTABE I REBLESRI/NTFZ 
I ZIFFER. I 172 AO 
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I SONDERZEICHEN I EEE ER re ERS 


Da 0000 ebenen Es 


I zn ! I 


I 
I 
I 
---1 AUSDRUCK I---( IF )-Y-I ANWEISUNGSLISTE I--Y-( ELSE )--- I 
+ - ---- I ---+-------------- II ------ I 

I 

I 


HH 


I 
T 
I 
---( REPEAT )-Y-I ANWEISUNGS I---I AUSDRUCK I---( UNTIL )--- I 
.--- LI &ISTE IA ---------- Sean | 

I 

I 


------ Y-I ANWEISUNGS I---( LOOP )--->1 
II LISTE IR | 
I 


ee I 

EEE I 

Feine Amen as I E u 2 

---I OPERAND I--I OPERAND I--( FOR )--I ANWEISUNGS I-( LOOP )-> 
ame women  eumm I ADE 5 wei 


I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
it 
I 
I 
I 
I 
I ->1 ANWEISUNGSLISTE I---( THEN )----J1 
I ß « 
I 
T 
AR 
I 
I 
I 
I 
I 
I 
J 
I 
I 
I 
T: 
T 
I 
I 
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Anhang 2 


Liste der Schlüsselworte und Standardnamen 


Schlüsselworte 


in alphabetischer Reihenfolge. Die angegebenen Seitenzahlen be- 
zeichnen denjenigen Ort, an dem die Bedeutung des Schlüsselwortes 
erklärt wird. 


AND 35 LOOP 48/51 
ARRAY 29 MOD 34 
CALL 20 NOT 33 
CEND 20 OR 35 
CODE 20 PROGRAM 29 
CONST 29 REPEAT 48 
DIV 34 STRING 29 
ELSE 43 THEN 43 
END 29 UNTIL 48 
FOR 51 VAR 29 
Ir 43 VARF 56 
Standardnamen 


in alphabetischer Reihenfolge. Die angegebenen Seitenzahlen be- 
zeichnen denjenigen Ort, an dem die Bedeutung des Standardnamens 
erklärt wird. 


ACTDRV 59 PRINTF 57 
CHGDRIVE 60 READ 42 
CLOSE 56 READF 5 
COMPILE >) READ(S) 42 
ER 41 RND 28 
DATEINAME [j6) SCROFF 2 
DEC 33 SCRON 59 
DELETE 59 SWAP 35 
DUP 23 TEND 59 
INC 32 TREADF 57 
NOF ILES 53 TWRITEF 58 
OPEN 56 WRITE 41 
PRINT 41 WRITER 58 
PRINT(S) 41 
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Anhang 4 


RPNL auf einen Blick 


CODE 5 3 leitet Prgtyp 2 ein 

CALL E leitet Prgtyp 1 ein 

? 5 legt Variablenwert auf den Stack 
?(B) 5 wie '?' mit 1 Byte 


ı= i Zuweisung (2 Byte) 


:=(B) : Zuweisung (1 Byte) 
INC ; TOP um 1 erhöhen 
DUP & TOP 3= TOP-} 

DEC : TOP um 1 erniedrigen 
+ s TOP := TOP + TOP-1 


- S TOP := TOP - TOP-1 


DIV : TOP := TOP/TOP-1 

* : TOP := TOP*TOP-1 

MOD : Rest von (TOP/TOP-1) 
CR ; Zeilenvorschub 

NOT : logische Funktion 
AND 5 logische Funktion 
OR ; logische Funktion 
PROGRAM : leitet Ptgtyp 3 ein 
OUTPUT ä Zeichenausgabe 


= ; log. Vergleichsoperator 
0= 2 log. Vergleichsoperator 
< ; log. Vergleichsoperator 

log. Vergleichsoperator 


>- $ log. Vergleichsoperator 
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SWAP 
=(5) 
>=(S) 
PRINT(S) 
READ(S) 
READ(CH) 
INCHAR 
OUTCHAR 
PRINT 
NEW 

TRUE 
FALSE 
DECLARE 
COMPILE 
SCROFF 
SCRON 
SYSTEM 
SYSFIELD 


BTRBSYS 


ZEICHEN 


DRON 
DROFF 


LIST 
MEMORY 


log. Vergleichsoperator 

log. Vergleichsoperator 
Laufvariable 

vertauscht TOP und TOP-1 
Vergleichsoperator für Strings 
Vergleichsoperator für Strings 
Ausgabeprozedur für Strings 
Eingabeprozedur für Strings 
Eingabeprozedur für Strings 
Eingabeprozedur für Zeichen 
Ausgabeprozedur für Zeichen 
Ausgabeprozedur für Zahlen 
Neuinitialisierung des Compilers 
Konstante 

Konstante 

leitet Deklaration ein 
Übersetzen einer Datei 
schaltet Bildschirm aus 
schaltet Bildschirm ein 
Rücksprung ins Betriebssystem 
nächste freie Adresse 


Einsprungadresse ins 
Betriebssystem 


dort steht das Zeichen, 
daß mit INCHAR eingegeben wurde 


schaltet den Drucker ein 
schaltet den Drcuker aus 


listet alle Variablen auf 
zeigt den Restspeicher an 
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RND a erzeugt Zufallszahlen 


SAVE : speichert compilierte Programme 

ab 
FILES : listet das Directory auf 
CHGDRIVE H Laufwerkwechsel 
DATEINAME i Ändern eines Dateinamens 
READF £ Einlesen einer Datei 
OPEN g Öffnen einer Datei 
CLOSE H Schließen einer Datei 
DELETE ; Löschen einer Datei 
WRITER e siohem einer Datei 
PRINTF : Ausgeben einer Datei 
TWRITEF ı Schreiben einer Datei 
TREADF : Lesen einer Datei 
TEND : Ende des TWRITEF-Modus 
ACTDRV : aktuelles Laufwerk 
NOFILES 2 Ausschalten der Filefunktionen 
CEND ; Abschluß der Typen 1 und 2 
IF 3 Beginn der Bedingungsanweisung 
THEN = Abschluß der Bedingungsanweisung 
ELSE s Alternative der Bedingungsanweisung 
REPEAT 3 Beginn der Wiederholungsschleife 
UNTIL x Bedingung der Wiederholungsschleife 
LOOP 3 Abschluß der Wiederholungsschleife 
FOR 2 Beginn der Wiederholungsschleife 
END : Abschluß des Types 3 
WRITE : Textausgabeprozedur 
READ 3 Eingabeprozedur für Zahlen 
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VAR 


VARF 


CONST 


ARRAY 


STRING 


DEND 


Variablendeklaration 
Filedeklaration 
Konstantendeklaration 
Felddeklaration 
Zeichenkettendeklaration 


Abschluß einer Deklaration 
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